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BUENOS MOMENTOS 



~Y~ Ti cualificado representante de una de 
m I las principales empresas españolas 
\**S distribuidoras de videojuegos nos co- 
municaba recientemente que el movimiento 
en esta franja del software para los microor- 
denadores domésticos estaba superando to- 
das las previsiones. 

Evidentemente estas previsiones estaban 
referidas al reciente descenso de sus precios 
de venta al público. 

Como ya habíamos comentado en estas 
mismas líneas en otras ocasiones, tal medida 
no debía limitarse a una simple operación de 
marketing destinada a invertir la relación en- 
tre el número de ejemplares vendidos y su 
precio unitario. 

Así, el objetivo final debía ser el de definir 
una terapia de conjunto para el sector. Al- 
canzar un porcentaje de producción propia 
significativo, responder a las características 
específicas del mercado nativo, y fomentar el 
surgimiento de nutridos y sólidos grupos de 
programadores son un objetivo obligado de 
cualquiera que pretenda que el software en 
nuestro país deje de ser un vergonzoso, y ex- 
clusivo, problema de aduanas, licencias e im- 
puestos. 

En este cuadro, el papel que corresponde 
jugar a las revistas del sector debería modi- 



ficarse también. Existe la necesidad de que 
los lectores de esas revistas y usuarios por 
tanto de los diferentes sistemas, identifiquen 
a los medios de comunicación como analistas 
veraces, críticos severos y cualificadores ob- 
jetivos. Sólo cumpliendo estos requisitos se- 
rán portavoces reputados por sus valoracio- 
nes. Frente a los usuarios por su f labilidad a 
la hora de inclinarse por una u otra opción. 
Frente a los productores y distribuidores por 
su análisis ajeno a la tendenciosidad o a una 
mal comprendida indulgencia. 

Dicho esto, también debiera decirse que la 
problemática del software para nuestros sis- 
temas no debe ni puede reducirse al subsector 
de los videojuegos. En un momento en que 
la informática invade más y más áreas de la 
actividad social y, entre ellas, la educativa, 
no debe pensarse sólo en fomentar una uti- 
lización unilateral de los pequeños, entre los 
más pequeños, micros. 

Que productores y distribuidores se plan- 
tearan un apoyo consciente, técnico, econó- 
mico y publicitario, a los diferentes tipos de 
software educativo y de aplicaciones sería 
también una manera de elevar el nivel de los 
usuarios y su capacidad de valorar crítica- 
mente sus propias actividades. Además de 
necesario sería muy sano. 
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Una de las funciones que normal- 
mente se emplean al realizar un pro- 
grama nuevo ese! comando LIST, el cual 
nos sirve para ver las líneas de programa 
que ya hemos introducido e ir depu- 
rando y añadiendo nuevas líneas al 
mismo. 

Uno de los grandes inconvenientes 
del LIST es la poca flexibilidad que 
posee cuando estamos buscando algún 
tipo de información dentro del pro- 
grama y no sabemos exactamente 
dónde se encuentra. 

Lo que normalmente se hace es lis- 
tar desde el principio del programa, o 
bien a partir de una línea determinada 
sin especificar la línea final. A partir 
de aquí sólo es cuestión de ir pulsando 
la tecla de CTRL para ralentizar el 
desfile de líneas del programa por la 
pantalla, pero normalmente ocurre 
que nos damos cuenta de que el da- 
to que buscábamos ya ha desaparecido 
por la parte superior de la pantalla y 
en este caso debemos pulsar ta tecla de 
STOP y realizar otro nuevo LIST en 
las proximidades de donde lo hemos 
visto aparecer. 

Una vez hemos conseguido localizar 
y detener el listado en la línea ade- 
cuada, observamos que necesitamos 
ver lo que se encuentra 20 o 30 líneas 
más arriba o más abajo, y de nuevo 
hay que hacer el correspondiente 
LIST con los problemas mencionados 
anteriormente. 

Para solventar este inconveniente 
presentamos un programa en lenguaje 
ensamblador que nos permitirá avan- 
zar y retroceder por todo el listado del 
programa con sólo pulsar una tecla. 
Este programa incorpora un nuevo co- 
mando al BASIC, y lo llamaremos 
LISTP porque realizará la función de 
presentarnos los listados por las pági- 
nas. 

Esta ampliación está pensada para 
el Commodore 64 y para el C128 tra- 



bajando en modo Commodore 64. 



SINTAXIS DEL NUEVO COMANDO 

Existen cinco formas de utilizar el 
comando LISTP tal como puede verse 
en el siguiente ejemplo: 

1. LISTP 

2. LISTP 20 

3. LISTP 2C^50 

4. LISTP —20 

5. LISTP 50— 

De estas cinco combinaciones sólo 
se usa la segunda para los listados pa- 
ginados, aunque las restantes ofrecen 
las mismas prestaciones que un LIST 
normal sin dar error de sintaxis. 

En la segunda forma, el número de 
línea indicado será el que encabeza la 
primera página del listado, siendo éste 
de longitud fija e igual a 10 líneas de 
programa. 

Una vez ha aparecido la primera pá- 
gina es posible avanzar o retroceder 
números de línea con sólo pulsar las 
teclas ' + ' y r — , Cabe mencionar que 
si en este avance llegamos a la última 
línea de programa, nos aparecerá 
una línea separadora, y el listado se- 
guirá por la primera línea del pro- 
grama, dando la sensación de lista cir- 
cular. Esta particularidad también 
ocurre en el caso de que- retrocedamos 
y lleguemos a la primera línea, en 
cuyo caso, antes de la línea separadora 
nos aparecerá la última línea. 

Tanto el avance como el retroceso 
se realiza en incrementos de 5 líneas 
para permitir un solapamiento entre 
páginas consecutivas. 

La forma de salir de este estado es 
pulsando la tecla de — STOP — . 

En el caso de que el programa lis- 
tado tenga menos de 5 líneas es posi- 
ble que nos aparezca repetido varias 
veces el listado sin que ello presente 
problema alguno. En este caso es pre- 
ferible hacer un LIST o un LISTP sin 
especificar número de línea. 



El número de líneas listadas, así 
como los incrementos, es posible mo- 
dificarlos a voluntad. Para ello debe- 
réis consultar el apartado de modifi- 
caciones. 



DESCRIPCION DEL PROGRAMA 

El programa que presentamos aquí 
hace posible que el comando LIST del 
BASIC posea una gran mejora res- 
pecto al original. El nuevo comando 
se llamará LISTP, siendo el último ca- 
rácter el que lo diferencia del LIST 
normal, de forma que nos recuerde fá- 
cilmente que se trata de presentar por 
páginas el listado del programa que es- 
tamos analizando. 

En este caso no hemos usado la téc- 
nica del wedge para intervenir en la in- 
terpretación de los comandos del BA- 
SIC. En su lugar se han realizado las 
modificaciones sobre la misma rutina 
del LIST de forma que no sea nece- 
sario el tener que añadir algún carác- 
ter especial al inicio del nuevo co- 
mando. El programa que hace posible 
esto, una vez cargado en el ordenador, 
se ubicará en la zona de RAM situada 
entre la ROM del BASIC y el conso- 
lador del vídeo, de forma que nos 
quede aislado respecto a los progra- 
mas que introduzcamos posterior- 
mente. Como ya os habréis imagi- 
nado, esta zona empieza en la direc- 
ción 49152 ($C000) y es aquí donde 
empieza nuestra ampliación del co- 
mando LIST. 

Para poder intervenir en la rutina 
del LIST original que se encuentra lo- 
calizada en la ROM del BASIC es ne- 
cesario obtener en primer lugar una 
réplica exacta del contenido de la 
ROM del BASIC en la RAM que se 
halla situada justo debajo de ella y que 
ocupa las mismas posiciones de me- 
moria. Posteriormente es necesario in- 
troducir unos breves cambios del 
nuevo comando y actuar en conse- 
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cuencia en caso de que se trate del 
nuevo comando. Una vez se han in- 
troducido estas modificaciones, se ac- 
túa sobre la dirección número 1 para 
que la CPU pueda leer la RAM en lu- 
gar de la ROM. 

Para poder analizar la posible si- 
multaneidad con otros programas 
cabe destacar que la zona ocupada por 
nuestra ampliación va desde la direc- 
ción 49152 hasta la 49599 
($C000 — $C1BF), ambas inclusive, y 
hace uso de las direcciones $FB y $FC 
de la página cero para las rutinas de 
copia. 



DESCRIPCION DE LAS RUTINAS 

En este apartado estudiaremos 
cómo funcionan las rutinas creadas y 
cuál es su efecto sobre la rutina ori- 
ginal del LIST. Este estudio puede re- 
sultar un poco difícil a los lectores no 
iniciados en la materia, en tal caso 
puede pasarse al capítulo CARGA- 
DOR DE BASIC, introducir el pro- 
grama en el ordenador y empezar a 
disfrutar de las ventajas del nuevo co- 
mando. 



INICIO 

La activación del nuevo comando se 
realiza desde el BASIC haciendo SYS 
49152. 

Esto hace que sea ejecutada la ru- 
tina de INICIO situada en la dirección 
49152 ($CO00), la cual ejecuta las 
subrutinas COPIAR, MODIF y 
ROMRAM antes de devolver el con- 
trol al BASIC. 



COPIAR 

La subrutina COPIAR se encuentra 
situada a partir de la dirección $C014. 

Consta de dos partes: la primera es 
la encargada de copiar la ROM del 
BASIC, y. la segunda realiza lo mismo 
con la del KERNAL. Para realizar la 
copia lo que se hace es leer un byte y 
volver a escribir sobre él. Para ello es 
necesario preparar un puntero que nos 
indique en cada momento la dirección 
de copiar. Este puntero se encuentra 
localizado en las direcciones $FB y 



$FC y es inicializado con la dirección 
más baja de cada ROM a copiar, te- 
niendo en cuenta que en la dirección 
$FB se encuentra el byte de menor 
peso y en $FC el byte de mayor peso. 
Para la ROM del BASIC este puntero 
es el $A000 y para la ROM del KER- 
NAL es la $E000. Para realizar dicha 
copia usamos dos subrutinas casi igua- 
les, de las cuales sólo vamos a comen- 
tar la primera de ellas. 

Las instrucciones encargadas de ha- 
cer la copia (leer y escribir) son las que 
se encuentran en las direcciones 
$C01E y $C02(), las cuales tienen un 
tipo de direccionamiento llamado in- 
directo-indexado por Y, siendo las 
que nos permitirán copiar bloques de 
256 bytes modificando solamente el 
valor del registro Y (ver direcc. 
SC022). Debido a que la capacidad de 
cada una de estas dos ROM'S es de 8K 
bytes, será necesario copiar varios blo- 
queos de 256 bytes, y esto se consigue 
modificando el byte más alto del pun- 
tero, con la instrucción INC $FC si- 
tuada en la dirección $C025 hasta lle- 
gar al final de cada ROM. Esto se con- 
sigue en las direcciones SC029 y 
$C03C, al comparar el puntero actual 
con la dirección siguiente a la del final 
de cada ROM. En el caso de la ROM 
del BASIC ésta será la $C000 y en el 
caso de la ROM del KERNAL será la 
dirección $0000. 



MODIF 

Esta subrutina es la encargada de 
modificar la rutina del LIST que ahora 
se encuentra en RAM e introducir, de 
esta forma, dos bifurcaciones o saltos 
hacia la nueva rutina del LISTP. Estas 
modificaciones se concretan en intro- 
ducir un JMP $C()83 en la dirección 
$A6A0 y un JMP $C062 en la direc- 
ción $A707, La primera dirección 
tiene por objeto el poder analizar los 
caracteres que entran después del co- 
mando original del LIST y decidir si 
debe ser un listado normal o pagi- 
nado. La segunda dirección interviene 
en el número de líneas listadas. Si se 
trata de un-listado paginado, la rutina 
del LIST sólo listará una línea y ésta 
estará bajo el control de la nueva ru- 
tina del LISTP. 



ROMRAM 

Esta subrutina se encuentra locali- 
zada a partir de la dirección $C076 y 
es la encargada de hacer la conmuta- 
ción de ROM a RAM. Para que esta 
conmutación no sea perturbada por 
ningún evento extraño se realiza un 
bloqueo de las interrupciones me- 
diante la instrucción SEI y al final son 
habilitadas de nuevo gracias a la ins- 
trucción CLL 

La conmutación se realiza modifi- 
cando los bits y 1 del port de la CPLJ 
cuya dirección es la 1. 

La subrutina termina con un salto a 
la dirección $A474, que es la encar- 
gada de devolver el control al BASIC 
y de que nos aparezca el READY en 
pantalla. 



MOD1 Y MOD2 

La subrutina MOD l es la encargada 
de listar sólo una línea si LISTP está 
activado y, en caso contrario, no 
afecta la operación normal del LIST. 

Por su parte, la subrutina MOD2 
está situada a partir de la dirección 
SC083 y actúa después de ser de codi- 
ficado el comando LIST gracias a la 
bifurcación realizada en la subrutina 
MODIF. 

Su misión es la de decodificar el 
nuevo comando con la sintaxis co- 
rrecta y en caso de que éste no lo sea, 
dar el correspondiente mensaje de 
— sintax error — . 

Tal como se ha descrito en el apar- 
tado de sintaxis del nuevo comando, 
éste sólo actúa en el caso que se es- 
pecifique un sólo número de línea. Las 
tomas de decisión se realizan en la pri- 
mera parte de esta subrutina (direc. 
$C083 a $C0A7). 



LISTP 

Esta subrutina empieza en la direc- 
ción $C0AA y es la encargada de rea- 
lizar el listado de 10 líneas de pro- 
grama y su funcionamiento es tal 
como se describe a continuación. 

Empezamos con quitar la dirección 
de retorno del STACK, ya que la sa- 
lida de nuestra subrutina debe dcvol- 
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ver el control al BASIC, y a continua- 
ción colocaremos el indicador (fíüg) 
LIS PAG a 1 para que nos recuerde 
que entramos en modo paginado. Este 
flag se encuentra en la dirección 
$C0()F y, cuando no está activa la ru- 
tina L1STP, su valor es cero, 

A continuación guardamos la direc- 
ción donde se encuentra el puntero 
que nos indica donde empieza la línea 
siguiente a la solicitada en LINKL 
Este puntero lo hemos llamado 
— link — porque es el encargado de ir 
encadenando las diferentes líneas de 
programa. Luego sigue un borrado de 
pantalla gracias a la utilización de la 
subrutina CHROUT ($FFD2) del 
KERNAL y la puesta a cero del con- 
tador de líneas listadas. A partir de 
este momento entramos en el bucle 
LISTP1 cuya misión es la de listar un 
total de 10 líneas de programa. Dentro 
de este bucle se realizan las siguientes 
comprobaciones: en primer lugar mira 
si ya ha listado la última línea de pro- 
grama en cuyo caso debe trazar una lí- 
nea separadora mediante la subrutina 
PRILIN y además debe colocar el 
puntero de la línea a listar sobre la pri- 
mera línea de programa, es decir, al 
principio del área destinada para al- 
macenar los programas en BASIC. En 
segundo lugar comprueba si hemos lis- 
tado 5 líneas en cuyo caso guardare- 
mos el nuevo puntero para su poste- 



rior utilización si escogemos la opción 
de avance. 

El anterior bucle finaliza cuando se 
han listado 10 líneas de programa y a 
partir de este momento el programa 
espera una entrada desde teclado. La 
rutina EXPTEC es la encargada de 
realizar esta función y es capaz de ana- 
lizar las teclas válidas para movernos 
por el listado del programa. 

Tal como hemos mencionado ante- 
riormente, podemos avanzar o retro- 
ceder con sólo pulsar las teclas '+' y 
'— 1 y salir del modo paginado con sólo 
pular la tecla de STOP. 

La opción de avance tiene por ob- 
jeto la de sustituir el puntero de la pri- 
mera línea a listar por el de la quinta 
línea y regresar otra vez al bucle que 
nos lista las LO líneas, LISTP1. De esta 
forma obtenemos un avance de 5 lí- 
neas permitiendo el solapamicnto de 
otras 5 líneas. 

La opción de retroceso tiene por ob- 
jeto la de sustituir el puntero de la pri- 
mera línea a listar por el de ¡a quinta 
línea antes de la primera. Como que 
este puntero lo desconocemos, es ne- 
cesario buscarlo, y ésta es la misión de 
la subrutina LKANT. A continuación 
regresamos al bucle de lisado LISTP1. 

Por último, la opción de — STOP — 
borra la indicación {flag) de listados 
paginados y devuelve el control al BA- 
SIC. 



LKANT 



Esta subrutina empieza en la direc- 
ción $C157 y es la que se encarga de 
obtener la dirección donde se encuen- 
tra el puntero de la línea actual. Esta 
dirección se encuentra justo al inicio 
de la línea anterior a la listada. 

Al igual que en el avance, tenemos 
que comprobar cuándo hemos llegado 
a un extremo del listado, en este caso 
es la primera línea. Si esto ocurre, lo 
que debemos hacer es desplazarnos 
hasta el fina] del programa y empezar 
a retroceder a partir de allí. 

Esta operación se realiza 5 veces 
para poder retroceder otras tantas lí- 
neas y la operación termina con la ac- 
tuación del puntero de la primera lí- 
nea a listar. 

Para los que deseéis profundizar en 
el tema se han incluido dos tablas que 
complementan el listado del programa 
en ensamblador, que son la tabla de 
símbolos y la de referencias cruzadas. 
En la primera se puede apreciar una 
lista de todas las etiquetas {label) usa- 
das durante la confección del pro- 
grama, junto con la dirección absoluta 
asignada a cada una de ellas. En la se- 
gunda tabla se observa una repetición 
de la tabla anterior ampliada con la in- 
formación para saber cómo se accede 
a tal o cual etiqueta. Ambas tablas son 
de gran utilidad para este programa. 



00001 0000 

00002 0000 

00003 0000 

00004 0000 

00005 0000 

00006 0000 

00007 0000 

00008 0000 

00009 0000 

00010 0000 

00011 0000 

00012 0000 

00013 0000 

00014 0000 



T 

■ * * 

J 

; * LISTADOS PAGINADOS 

; * por * 

! -* JOSEP M. GILS GIMENO 

■ * * 
i 

I 
I 

; PARA ACTIVAR EL PROGRAMA DESDE ELBASIC DEBE 
HACERSE SYS 49152. 

; LOS LISTADOS PAGINADOS SE OBTIENEN TECLEANDO 
; — LISTP XXXX— SIENDO XXXX EL PRIMER NUMERO DE 
LINEA A VISUALIZAR 

; CON LAS TECLAS J + ' Y '-' PODREMOS LISTAR HACIA DELANTE HACIA 
ATRAS 
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0001b 
00016 

00017 
00018 
00019 
00020 
00021 
00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 
00034 
00035 
00036 
00037 
00038 
00039 

00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
30051 

::052 

30053 
00054 
00055 

::o56 

30057 
30058 

: : 359 

00060 
00061 
00062 



0000 
3330 

3333 
3333 

zzzz 

0000 
0000 
3330 

0000 
0000 

zzzz 

0000 
0000 



coc : 

C000 20 14 

C003 20 41 

C006 4C 76 



C009 
C009 
C00B 
C00D 
C00E 
C00F 
C010 

C012 

C014 

C014 

C014 

C016 

C018 

C01A 

C01C 

C01E 

C020 

C022 

C023 

C025 

C027 

C029 

C02B 

C02D 

C02F 

C031 

C033 

C035 

C036 

C038 



01 08 
00 00 
00 
00 
00 

62 C0 
83 C0 



A9 A0 
85 FC 
A9 00 
85 FB 
A0 00 
Bl FB 
91 FB 
C8 

D0 F9 
E6 FC 
A5 FC 
C9 C0 
D0 Fl 
A9 E0 
85 FC 
Bl FB 
91 FB 
C8 

D0 F9 
E6 FC 



; CON INCREMENTOS DE 5 LINEAS. AL LLEGAR A LA 
ULTIMA LINEA APARECE UNA 

LINEA SEPARADORA Y EL LISTADO CONTINUA EN LA PRIMERA LINEA 

PARA SALIR DEBE PULSARSE LA TECLA DE —STOP—. 

EL PROGRAMA SE ALMACENA EN LA ZONA DE RAM 
SITUADA DESPUES DE LA ROM DEL 

BASIC (49152= $C000). 



*=$C000 

C0 INICIO JSR COPIAR 
C0 JSR MODIF 

C0 JMPROMRAM 



¡ ORIGEN DEL PROGRAMA. 

COPIA EL CONTENIDO DE LAS ROM'S SOBRE LA RAM. 
INSERTA MODIFICACIONES EN RUTINA DEL— LIST— . 
DEJAN DE TRABAJAR LAS ROM'S Y QUEDA ACTIVADO EL 
-LISTP — . 



LfNKl 

LINK5 

LINLIS 

LATRAS 

LISPAG 

M0DP1 

M0D1 

M0DP2 



.WORD $0801 
.WORD $0000 
BYTE $00 
.BYTE $00 
.BYTE $00 
.WORD 

.WORD 



NUMERO DE LINEAS LISTADAS POR PANTALLA (0-10). 
NUMERO DE LINEAS ANALIZADAS HACIA ATRAS (0-5). 
FLAG DE LISTADOS PAGINADOS (ACTIVADO^ $01). 



_ **************** 

COPIAR LDA #$A0 ; COPIA LA ROM DEL BASIC SOBRE RAM. 
STA $FC 
LDA #$00 
STA $FB 
LDY #$00 
L00P1 LDA ($FB),Y 
STA ($FB),Y 
INY 

BNE L00P1 
INC $FC 
LDA $FC 
CMP #$C0 
BNE L00P1 

LDA #$E0 ; COPIA LA ROM DEL KERNAL SOBRE RAM. 
STA $FC 
L00P2 LDA ($FB),Y 
STA ($FB),Y 
INY 

BNE L00P2 
INC $FC 



8 INPUT 



i Código Máauim 




00063 


C03A 


A5 FC 


LDA $FC 




D0064 


C03C 


C9 00 


CMP #$00 




0D065 


C03E 


D0 Fl 


BIME L00P2 




00066 


C040 


60 


RTS 




00067 

r r r u 


C041 








00068 


C041 




i ************************************************ 


00069 


C041 








00070 


C041 


A9 4C 


MODIF LDA #$4C 


PREPARA LOS DESVIOS A LAS NUEVAS RUTINAS DEL 






-LISTP— . 


00071 


C043 


8D A0 A6 


STA SA6A0 




00072 


C046 


8D 07 A7 


STA $A707 




00073 


C049 


AD 12 C0 


LDA M0DP2 




00074 


C04C 


AE 13 C0 


LDX M0DP2+1 




00075 


C04F 


8D Al A6 


STA $A6A1 




00076 


C052 


8E A2 A6 


STX $A6A2 




00077 


C055 


AD 10 C0 


LDA M0DP1 




00078 


C058 


AE 11 C0 


LDX M0DP1 + 1 




00079 


C05B 


BD 08 A7 


STA $A708 




00080 


C05E 


BE 09 A7 


STX $A709 




00081 


C061 


60 


RTS 




00082 


C062 








00083 


C062 




. ****************************************************************** 

T 


00084 


C062 




I 




00085 


C062 


AD 0F C0 


M0D1 LDA LISPAG ; 


MIRA SI EL — LISTP— ESTA ACTIVADO. 


00086 


C065 


C9 01 


CMP #$01 




00087 


C067 


F0 07 


BEQ M0D1A ; 


SALTA SI ES ASI. 


00088 


C069 


A0 00 


LDY #$00 ; 


SIGUE CON LA RUTINA ORIGINAL DEL — LIST — 


00089 


C06B 


Bl 5F 


LDA ($5F),Y 




00090 


C06D 


4C 0A A7 


JMP $A70A 




00091 


C070 


A9 0D 


M0D1A LDA #$0D ; 


ENVIA UN RETURN. 


00092 


C072 


20 D2 FF 


JSR $FFD2 




00093 


C075 


60 


RTS 




00094 


C076 








00095 


C076 




****************************************************************** 


00096 


C076 








00097 


C076 


78 


ROMRAM SEI ; 


BLOQUEA INTERRUPCIONES IRQ. 


00098 


C077 


A5 01 


LDA $01 




00099 


C079 


29 FD 


AND #$FD 




00100 


C07B 


09 05 


ORA #$05 




00101 


C07D 


85 01 


STA $01 




00102 


C07F 


58 


CLI 


DESBLOQUEA INTERRUPCIONES IRQ. 


00103 


C080 

r r 


4C 74 A4 


JMP $A474 




00104 


C083 








00105 


C083 




************************************* *********** ********Jc*** ****** 


00106 


C083 








00107 


C083 


C9 50 


MOD2 CMP #$50 


MIRA SI DESPUES DE —LIST— SIGUE LA LETRA 'P\ 


00108 


C085 


F0 08 


BEQ 


SALTA SI ES ASI. 








M0D2A 




00109 


C087 


C9 AB 


CMP #$AB 


MIRA SI DESPUES DE —LIST— SIGUE UN GUION. 


00110 


C089 


F0 01 


BEQ 


SALTA SI ES ASI. 








LINORM 





00111 


C08B 


60 


LERROR RTS 


00112 


C08C 


4C A4 A6 


LINORM JMP $A6A4 


00113 


C08F 


20 73 00 


M0D2A 


JSR $0073 


00114 


C092 


90 08 




BCC M0D2B 


00115 


C094 


F0 F6 




BEQ LINORM 


00116 


C096 


C9 AB 




CMP #SAB 

\J 1 V 1 1 Ti \Lt r \ I t 


00117 


C098 


D0 Fl 




BNE LERROR 


00118 


C09A 


F0 F0 




BEQ LINORM 


00119 


C09C 


20 6B A9 


M0D2B 


JSR ÍA96B 


00120 


C09F 


20 13 A6 




JSR $A613 


00121 


C0A2 


20 79 00 

r ' rr 




JSR $0079 


00122 


C0A5 


F0 03 




BEQ LISTP 


00123 

r r 


C0A7 


4C AF A6 




JMP $A6AF 


00124 


C0AA 








00125 


C0AA 






00126 


C0AA 








00127 


C0AA 


68 


1 I^TP 
lio i r 


Pl A 


00128 


C0AB 


68 




Pl A 


00129 


C0AC 


Á9 01 




1 DA #$(7)1 

L_ \-J f \ 1r -^SJ L 


00130 


C0AE 


8D 0F C0 




O 1 n LIOi r\\J 


00131 


C0B1 


A6 5F 




LUA ^pJr 


00132 


C0B3 


A5 60 




i nA ^f,(/\ 


00133 


C0B5 


BE 09 C0 




^TX 1 IIMK1 
OIA l_ 1 1 i| f \ X 


00134 


C0B8 


8D 0A C0 




^TA 1 1 Mk 1 -l. 1 

O 1 n LIINr\lTl 


00135 


C0BB 


A9 93 


m o i n 


1 HA zit^Q'R 


00136 


C0BD 


20 D2 FF 




JSR SFFD2 


00137 


C0C0 


A9 00 




LDA #$00 


00138 


C0C2 


BD 0D C0 




STA LINLIS 


00139 


C0C5 


A0 01 


LISTP2 


LDY #$01 


00140 


C0C7 


84 0F 




STY $0F 


00141 


C0C9 


Bl 5F 




LDA ($5F),Y 


00142 


C0CB 


D0 08 




BNE LISTP3 


00143 

rr 


C0CD 


20 44 Cl 




JSR PRILIN 


00144 


C0D0 

r r 


A9 0D 




LDA #$0D 


00145 


C0D2 


20 D2 FF 




JSR $FFD2 


00146 

r r 


C0D5 


C8 


LISTP3 


INY 


00147 


C0D6 


Bl 5F 




LDA {$5F),Y 


00148 


C0D8 


AA 




TAX 


00149 


C0D9 


C8 




INY 


00150 


C0DA 


Bl 5F 




LDA ($5F),Y 


00151 


C0DC 


20 E8 A6 




JSR $A6EB 


00152 


C0DF 


EE 0D C0 




INC LINLIS 


00153 


C0E2 


A9 0A 




LDA #$0A 


00154 


C0E4 


CD 0D C0 




CMP LINLIS 


00155 


C0E7 


F0 17 




BEQ EXPTEC 


00156 


C0E9 


20 32 Cl 




JSR LKSIG 


00157 


C0EC 


A9 05 




LDA #$05 



; SALIDA POR ERROR DE SINTAXIS. 

; SIGUE CON EL —LIST— NORMAL 

¡ LEE CARACTER SIGUIENTE A LA LETRA 'P\ 

; SALTA SI ES NUMERICO. 

; SALTA SI NO HAY PARAMETROS 

; MIRA SI ES UN GUION. 

; SALTA S! NO ES ASI. 

; SI LO ES REALIZA UN —LIST— NORMAL. 

; BUSCA PRIMER NUMERO DE LINEA. 

; BUSCA PRIMERA DIRECC. DE LINK Y LEE SEGUNDO 

PARAMETRO. 

; ANALIZA SEGUNDO PARAMETRO. 

; SALTA SI NO HAY MAS PARAMETROS. 

; SALTA A LA RUTINA NORMAL DEL LIST SI HAY MAS 

PARAM. 



; QUITA LA DIRECC. DE RETORNO DEL STACK. 
; COLOCA FLAG DE LISTADOS PAGINADOS A T. 
; GUARDA LINK PRIMERA LINEA. 

; BORRA PANTALLA. 

; NUMERO LINEAS LISTADAS^ 0. 

; COLOCA FLAG A 'NO STRING' 

¡ MIRA SI EL LINK ES DE LA ULTIMA LINEA +1. 
; SALTA SI NO LO ES. 

; BUSCA LINK PRIMERA LINEA DE BASIC. TRAZA LINEA 

SEPARADORA. 

; ENVIA UN RETURN 



; BUSCA SIGUIENTE LINK 



; LISTA UNA SOLA LINEA. 

; INCREMENTA EL NUM. DE LINEAS LISTADAS. 

; MIRA SI SE HAN LISTADO 10 LINEAS. 

; SALTA SI ES ASI. 

; BUSCA SIGUIENTE LINK. 

; MIRA SI SE HA LISTADO LA QUINTA LINEA. 



10 INPUT 




00158 


C0EE 


CD 0D C0 




PMP 1 INI 19 

ivi r i_ 1 1 \ i_ i o 




00159 


C0F1 


D0 D2 




RNF 1 ISTP? 

UML LIO 1 "¡1 


■ SAI ta si Mn i n re 

, OnL 1 n ol (MU LU LO. 


00160 


C0F3 


A6 5F 




1 DX Í5F 

i— u/\ o r 


■ o 1 1 a r n a fi i iMk" nr i a o i i i m t a i i m r a 

, uUrttiUM LL LlINrV Ut LA UUIINIA LUNLA. 


00161 


C0F5 


A5 60 




l DA «fifi Oí 




00162 


C0F7 


BE 08 C0 




STX LINK5 




00163 


C0FA 


BD 0C C0 




STA LINK5+1 




00164 


C0FD 


4C C5 C0 




JMP LISTP2 


■ SJPIfF PON OTRA 1 IMFA 
, oIüUl UU IV Ul nn LIÍN LH, 


00165 


C100 










00166 


C100 


20 E4 FF 


EXPTEC JSR $FFE4 


■ FXPI ORA tfpi Ann 


00167 


C103 


C9 2R 




CMP #$2B 


. MIDA Cl CT UA DI II CAnn 1 A TtfM A > i ' 

; IVMKA ol oL HA rULoAUU LA 1 LULA + . 


00168 


C105 


D0 13 




BNE TEC1 


■ CAI TA SI IMO 1 O FQ 
OMLIM ol INU LU to, 


00169 


C107 


AE 0B C0 




LDX LINK5 


COLOCA EL LINK5 EN EL LINK1. 


00170 
y y x J y 


C10A 


AD OC CP) 




LDA 










LINK5 + 1 




00171 

r r 


C10D 


BE 09 C0 




STX LINK1 




00172 


Cl 10 


8D 0A C0 


LINK1 


STA 

+ 1 




00173 


C113 


86 5F 




STX $5F 




00174 


C115 


85 60 




STA $60 




00175 


C117 


4C BB 00 




JMP LiSTPl 


VIIFfVF A I ISTAR 1 Ci 1 INFAS 

v ullv l r\ LIO I fin ±yj L 1 1 V LMO . 


00176 


cha 








00177 


Cl 1A 


C9 2D 


TEC1 


CMP#$2D ; 


MIRA SI S P l—l A din CAnn 1 A tütm a * < 
IVIlríM o) ol HM rULoAUU LA 1 LULA — . 


00178 


C11C 


D0 06 




BNETEC2 ; 


SAI TA SI NO FS ASI 

Ortl_ 1 rV Ol INU LO Mol. 


D0179 


CHE 


20 57 Cl 




JSR LKANT ; 


Rl ISPA FI 1 1 M K nF R 1 IMFAC ANTCDinDCC a i i\ ooiurn/i 
duoum tL LMNr\ Ut Ll INlAo AIN ItKIUKtb A LA rKIMtRA. 


00180 


C121 


4C BB C0 




JMP LISTP1 ; 


VIJFI VF A 1 ISTAR 1 (Ti 1 INFAS 

vUL_i_VL /-\ LIO 1 nh 1 yJ LlliLnO. 


00181 


C124 








00182 


C124 


A5 91 


TEC2 


LDA $91 ¡ 


MIRA SI SF WA PIN CAnn 1 ñ TFTI A PiC CTAD 
ivllrxtt OI OL nM rU LoAJJU LA 1 LULA UL — o I Ur — . 


00183 


C126 


C9 7F 




CMP #$7F 




00184 


C128 


D0 D6 

r 




BNE EXPTEC ; 


SI NO ES ASI VUELVE A EXPLORAR FI TFPI Ano 


00185 




AQ (h(h 
r\zt yy 




LDA #$00 ; 


BORRA FLAG DE LISTADOS PAGINADOS. 


00186 


C12C 


8D 0F C0 




STA LIS PAG 




00187 


C12F 


4C 74 A4 




JMP $A474 ; 


TERMINA EL— LISTP— Y REINICIALIZA EL BASIC. 


00188 


C132 




■ 






00189 


Cl "¥? 




; *************************************************** 


00190 


C132 










00191 


C132 


A0 00 

i \ ys yj yj 


LKSIG 


LDY #$00 ; 


BUSCA LINK DE LA SIGUIENTE LINEA 


00192 


C134 


Bl 5F 




LDA ($5F),Y 




00193 


C136 


AA 




TAX 




00194 


C137 


C8 




INY 




00195 


C138 


Bl 5F 




LDA ($5F),Y 




00196 


C13A 


t_J v_J „j i 




STX $5F 




00197 


C13C 


85 60 




STA $60 




00198 


C13E 


D0 03 




BNE LKSIG1 ; 


SI HA LLEGADO A LA ULTIMA LINEA, 


00199 


C140 


40, 44 P1 




JMP PRILIN ; 


COLOCAR EL LINK A LA PRIMERA LINEA DEL BASIC. 


00200 


C143 


60 


LKSIG1 


RTS 




00201 
r y— y 


C144 










00202 


C144 


A6 2B 


PRILIN 


LDX $2B ; 


LINK PRIMERA LINEA DEL BASIC. 


00203 


C146 


A5 2C 




LDA $2C 




00204 


C148 


86 5F 




STX $5F 




00205 


C14A 


85 60 




STA $60 




00206 


C14C 


A2 28 




LDX #$28 ; 


VA A SACAR LA LINEA DE SEPARACION DE FINAL DE 



INPUT 11 











LIS 1 AD0. 


(0020/ 


014t 


/\n A O DD lili 

Ay Ao rKI Ll i 


LUA iFqjAO ; 


PARAPTFP PillF FORMA 1 A 1 INFA DF PAR API ON 






oM H9 FF 
¿.y \J¿- rr 






00209 


C153 


CA 


DEX 






C154 


D0 F8 


BNE PRILll 




00211 


C156 


60 


RTS 




00212 


fVI i J 

C157 








00213 


Al J T 

C157 


■ ************************************************* 


fAM O 1 A 

00Z14 


01b/ 








00215 


C157 


A9 05 LKANT 


LDA #$05 ; 


NUMERO DE LINKS HACIA ATRAS= 5. 


0021b 


L/ioy 


8D 0E C0 


STA LATRAS 




00217 


CloC 


AE 09 C0 LKAN0 


LDX LINK1 ; 


PREPARA PRIMER LINK. 


00218 


C15F 


AD 0A C0 


LDA LINK1 + 1 




00219 


Airo 

0162 


86 5F 


STX $5F 




00220 


C164 


85 60 


STA $60 




00221 


C166 


E4 2B 


CPX $2B 




00222 


0168 


D0 18 


BNE LKAN2 ; 


SALTA SI NO ES LA PRIMERA LINEA. 


00z¿3 


OlbA 


C5 2C 


CMP $2C 




00224 


OlbC 


D0 14 


BNE LKAN2 ¡ 


SALTA SI NO ES LA PRIMERA LINEA. 


0022b 


r> i a C7 

u1d£ 


38 


SEC ; 


COLOCA EL LINK DE LA ULTIMA LINEA DEL BASIC. 


Mrt TIC 

0022b 


Olbr 


A5 2D 


LDA $2D 




0022/ 


01/1 


E9 02 


SBC #$02 




00228 


r* i "7 o 

01/3 


85 5F 


STA $5F 




00229 


01 /b 


8D 09 C0 


STA LINK1 




0023U 


01 /o 


A6 2E 


LDX $2E 




00231 


01 / A 


B0 01 


BCS LKAN1 




00232 


01 /o 


CA 


DEX 




00233 


01 /u 


86 60 LKAN1 


STX $60 




00234 


01/h 


8E 0A C0 


STX LINK1 + 1 




00235 


0182 








00236 


Al O O 

0182 


C6 60 LKAN2 


DEC $60 ; 


BUSCA EL LINK DE LA LINEA ANTERIOR. 


00237 


0184 


A0 FE 


LDY #$FE 




00238 


Al Oí" 

018b 


Bl 5F LKAN3 


LDA ($5F),Y 




00239 


A I o O 

C188 


09 00 


CMP #$00 




00240 


OloA 


*F0 03 


BEQ LKAN5 




00241 


A 1 O A 

0180 


88 LKAN4 


DEY 




00242 


018U 


D0 F7 


BNE LKAN3 




00243 


ai nr 

018r 


C8 LKAN5 


INY 




00244 


0190 


AD 09 C0 


LDA LINK1 




íAíá o /i c 

0024b 


Al AQ 

oiy3 


DI 5F 


CMP <$5F),Y 




0024o 


oiyo 


F0 04 


BEQ LKAN7 




0024/ 


oiy / 


88 LKAN6 


DEY 




fÁfAO A Q 

0024o 


P 1 QQ 

oiyo 


4C BC Cl 


JMP LKAN4 




/tí o yi o 

0024y 


Al QD 

oiyo 


AD 0A 00 LKAN7 


LDA LINK1 + 1 




00250 


C19E 


C8 


INY 




00251 


Al Ar 

C19F 


DI 5F 


CMP <$5F),Y 




00252 


C1A1 


F0 04 


BEQ LKAN8 




00253 


C1A3 


88 


DEY 




00254 


C1A4 


4097 Cl 


JMP LKAN6 




00255 


C1A7 


88 LKAN8 


DEY 




00256 


C1A8 


18 


CLC 





12 INPUT 




Código Máquina 




00257 C1A9 98 

00258 C1AA 65 5F 

00259 C1AC 85 5F 

00260 C1AE 8D 09 C0 

00261 C1B1 90 02 

00262 C1B3 E6 60 ; 

00263 C1B5 A5 60 LKAN9 

00264 C1B7 8D 0A C0 

00265 C1BA CE 0E C0 

00266 C1BD D0 90 

00267 C1BF 60 

00268 C1C0 



TYA 

ADC $5F 
STA $5F 
STA LINK1 
BCC LKAN9 
INC $60 
LDA $60 
STA LINK1 + 1 
DEC LATRAS 
BNE LKAN0 
RTS 
.END 



ERRQRS= 0000 



SYMBOL VALUE 

COPIAR C014 

LERROR C08B 

LINORM C08C 

LISTP2 C0C5 

LKAN2 C182 

LKAN6 C197 

LKAINT C157 

LOOP2 C031 

MOD2A C0BF 

MODP2 C012 

TEC1 CHA 



EXPTEC 


C100 


LINK1 


C009 


LISPAG 


C00F 


LISTP3 


C0D5 


LKAN3 


C186 


LKAN7 


C19B 


LKSIG 


C132 


MOD1 


C062 


MOD2B 


C09C 


PRILI1 


CHE 


TEC2 


C124 



INICIO 


C000 


LINK5 


C00B 


LISTP 


C0AA 


LKAN0 


C15C 


LKAN4 


C18C 


LKAN8 


C1A7 


LKSIG1 


C143 


MOD1A 


C070 


MODIF 


C041 


PRILIN 


C144 



LATRAS 


C00E 


LINLIS 


C00D 


LISTP1 


C0BB 


LKAN1 


C17D 


LKAN5 


C18F 


LKAN9 


C1B5 


LOOP1 


C01E 


MOD2 


C083 


MODP1 


C010 


ROMRAM 


C076 



END OF ASSEMBLY 



CROSS REFERENCE....PAGE 1 



COPIAR 


$C014 


30 


43 






EXPTEC 


$C100 


155 


166 


184 




INICIO 


$C000 


30 








LATRAS 


$C00E 


37 


216 


265 




LERROR 


$C08B 


111 


117 






LINK1 


$C009 


34 


133 


134 


171 


LINK5 


$C00B 


35 


162 


163 


169 


LINLIS 


$C00D 


36 


138 


152 


154 


LINDRM 


$C08C 


110 


112 


115 


118 


LISPAG 


$C00F 


38 


85 


130 


186 


LISTP 


$C0AA 


122 


127 






LISTP1 


$C0BB 


135 


175 


180 




LISTP2 


$C0C5 


139 


159 


164 




LISTP3 


$C0D5 


142 


146 







INPUT 13 



1 IS Á M fii 

LKAN0 


$C15C 


217 


266 




1 IS A M 1 

LKAN 1 


$C17D 


231 


233 




LKAN2 


$C182 


222 


224 


236 


LKAN3 


$C186 


238 


242 




LKAN4 


$C18C 


241 


248 




i \f A IV 1 1 — 

LKAN5 


$C18F 


240 


243 




1 lf IV 1 f~~ 

LKAN6 


$C197 


247 


254 




LKAISI7 


$C19B 


246 


249 




LKAN8 


$C1A7 


252 


255 




LKAN9 


$C1B5 


261 


263 




LKANT 


$C157 


179 


215 




LKSIG 


$C132 


156 


191 




LKSIG1 


$C143 


198 


200 




LUUP1 


/"viTs l i — 

$0(3 1E 


48 


51 


55 


L00P2 


$C031 


58 


61 


65 


M0D1 


ft*- ^ /"A i^— r\ 

$Cp62 


39 


85 




MUDIA 


$C070 


87 


91 




M0D2 


$C083 


40 


107 




M0D2A 


$C08F 


108 


113 




M0D2B 


$Cp9C 


114 


119 




MODIF 


$C041 


31 


70 




M0DP1 


$C010 


39 


77 


78 


M0DP2 


$C012 


40 


73 


74 


PRILll 


$C14E 


207 


210 




PRILIN 


$C144 


143 


199 


202 


ROMRAM 


$C076 


32 


97 




TEC1 


$C11A 


168 


177 




TEC2 


$C124 


178 


182 





CARGADOR DE BASIC 

Para poder llevar a la práctica este 
programa de una forma asequible para 
vosotros, se ha pensado en usar un pe- 
queño programa en BASIC que nos 
cargue el programa en lenguaje má- 
quina a partir de la dirección 49152. 

Este programa realiza la carga me- 
diante la lectura de los valores intro- 
ducidos en las sentencias DATA. És- 
tas se encuentran situadas en las líneas 
cuya numeración concuerda con la po- 
sición física que después tomará la ru- 
tina, es decir, de la 49152 hasta la 
49599. 

A continuación sale una presenta- 
ción en pantalla de los comandos que 
se pueden utilizar y en el caso que se 
desee activar la rutina debe hacerse un 
SYS 49152. Para desactivar el co- 
mando LISTP basta con pulsar simul- 
táneamente las teclas de — STOP — y 
de —RESTORE—. 



LISTADOS 
PAGINADOS 

por 
JOSEP M. 

GILS 
GIMENO 



* * * * 



10 REM* 
20 REM * 
30 REM * 
40 REM * 
50 REM * 
60 REM * 
70 REM * 
80 REM * 
90 REM * 
100 REM * 
110 SUMA=0:AD=49152 
120 FOR N = T0 447 

READ BY:P0KE AD + N, 
BY:SUMA = SUMA + BY 
NEXT 

IF SUMA <>58358 
THEN PRINT "ERROR EN 
LOS DAT0S":END 
PRINT"[SHIFT+CLR/ 
H0ME][CTRL + 9][11 
ESPACI0S]LISTAD0S[2 
ESPACI0S]PAGINAD0S[ 



130 

140 
150 



160 



10ESPACIOSHCTRL+0]" 

170 PRINT"[4*CRSR 

ABAJ0][CTRL+9]SYS 
49152[CTRL+0]ACTIVA- 
LISTPNUM. LINEA-" 

180 PRINT"[CRSR 

ABAJ0][CTRL+9]ST0P/ 
REST[CTRL + 0] 
DESACTIVALISTP" 

190 PRINT"[CRSRABAJ0][8 
ESPACI0S][CTRL+9] + 
[CTRL + 01AVANZANUM. 
LINEA" 

200 PRiNT"[CRSRABAJ0][8 
ESPACI0SKCTRL+9J- 
[CTRL + 0] RETROCEDE 
NUM. LINEA" 
210 PRINT"[CRSRABAJ0][5 
ESPACI0SKCTRL + 9] 
STOP[CTRL+0]SALEDEL 
M0D0PAGI NADO" 
49152 DATA32, 20, 192,32,65, 

192,76,118 
49160 DATA 192, 1 ,8, 1,8,10,0,0 
49168 DATA98,192,131,192, 
169,160,133,252 
49176 DATA169, 0,133, 251, 
160,0,177,251 
49184 DATA 145, 25 1,200, 208, 
249,230,252,165 
49192 DATA252, 201, 192,208, 
241,169,224,133 
49200 DATA252, 177,251 ,145, 
251,200,208,249 
49208 DATA230, 252, 165,252, 

201,0,208,241 
49216 DATA96, 169,76, 141, 
160,166,141,7 
49224 DATA167, 173, 18,192, 
174,19,192,141 
49232 DATA161, 166, 142,162, 

166,173,16,192 
49240 DATA174,17, 192, 141,8, 

167,142,9 
49248 DATA167,96,173,15, 
192,201,1,240 
49256 DATA 7, 160,0, 177,95, 

76,10,167 
49264 DATA169, 13,32,2 10, 
255,96,120,165 
49272 DATA1,41,253,9,5,133, 
1,88 
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Código Máquina 




49280 DATA76, 116, 164,201, 

80,240,8,201 
49288 DATA 17 1,240, 1 ,96,76, 

164,166,32 • 
49296 DATA115,0,144,8,240, • 

246,201,171 
49304 DATA208,241,240,32, 

107,169,32 
49312 DATA19, 166,32,121,0, 

240,3,76 
49320 DATA175, 166,104,104, 

169,1,141,15 
49328 DATA192, 166,95,165, 

96,142,9,192 
49336 DATA141,10, 192,169, 

147,32,210,255 
49344 DATA169,0,141,13,192, 

160,1,132 
49352 DATAIS, 177,95,208,8, 

32,68,193 
49360 DATA169,13,32,210, 

255,200,177,95 
49368 DATA170, 200, 177,95, 

32,232,166,238 
49376 DATA13, 192,169, 10, 

205,13,192,240 
49384 DATA23,32,50,193,169, 

5,205,13 
49392 DATA192, 208, 210,166, 

95,165,96,142 
49400 DATA11, 192, 141,12, 

192,76,197,192 
49408 DATA32,228,255,201, 

43,208,19,174 
49416 DATA11 ; 192,173,12, 

192,142,9,192 
49424 DATA 141, 10, 192,134, 

95,133,96,76 
49432 DATA187, 192,201,45, 

208,6,32,87 
49440 DATA193,76,187,192, 

165,145,201,127 
49448 DATA208, 214, 169,0, 

141,15,192,76 
49456 DATA1 16, 164, 160,0, 

177,95,170,200 
49464 DATA177, 95, 134,95, 

133,96,208,3 
49472 DATA76,68, 193,96, 166, 

43,165,44 
49480 DATA134,95, 133,96, 

162,40,169,168 
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49488 DATA32,210, 255,202, 

208,248,96,169 
49496 DATAS, 141, 14, 192, 174, 

9,192,173 
49504 DATA10,192, 134,95, 

133,96,228,43 
49512 DATA208, 24, 197,44, 

208,20,56,165 
49520 DATA45, 233, 2, 133,95, 

141,9,192 
49528 DATA166,46, 176,1,202, 

134,96,142 
49536 DATA10, 192,198, 96, 

160,254,177,95 
49544 DATA20 1,0, 240,3, 136, 

208,247,200 
49552 DATA173, 9, 192,209,95, 

240,4,136 



49560 DATA76,140,193,173, 

10,192,200,209 
49568 DATA95,240, 4, 136,76, 

151,193,136 
49576 DATA24.152, 101,95, 

133,95,141,9 
49584 DATA 192, 144,2,230,96, 

165,96,141 
49592 DATA10,192,206,14, 

192,208,157,96 



Concepto 



Núm. líneas listadas 
Increm. en avance 
Increm. en retroceso 



PARA INTRODUCIR 
MODIFICACIONES 

Es posible modificar tanto el nú- 
mero de líneas listadas por página 
como los incrementos hacia delante o 
hacia atrás en el número de líneas. Si 
deseáis modificar estos valores es ne- 
cesario consultar la tabla 1 , donde se 
relacionan los tres conceptos mencio- 
nados. 



Dirección Valor 



49379 10 
49389 5 
49496 5 



TABLA 1 



Suscríbase ahora a 



PRECIO DE CUBIERTA PTAS. 375 

MENOS: 20 % de descuento al suscriptor Ptas. 75 

USTED PAGA SOLO PTAS. 300 (por ejemplar) 

SUSCRIPCION ANUAL 12 EJEMPLARES 4.500 Ptas. 
(900 Ptas), USTED PAGA SOLO 3.600 Ptas 
(entrega a domicilio gratis) 



INPUT le proporciona 

INFORMACION... DIVERSION,.. FORMACION, 
(un curso completo de programación)... 



commodore 




to 



dos 




...LA POSIBILIDAD DE MEJORAR 
SU NIVEL PROFESIONAL... 
EL NIVEL DE LOS ESTUDIOS... 



Descubra el u ^m^ con íadH 
Aptendaa^os^ dotes 

Diviértase con ios 



Recorte y envíe este cupón 
de inmediato a EDISA, López de Hoyos, 141 
28002 Madrid, o bien llámenos 
al Telf. (91) 415 97 12 

'/ >XV^XXX\XVV\XVXX\X^X>>XXXVCSXX| 



INPUT 



BOLETIN DE SUSCRIPCION 



SI, envíeme INPUT COMODORE durante 1 ano (12 ejemplares), al precio especial de oferta de 3.600 Pías. AHORRANDOME 
900 Ptas. sobre el precio normal de portada de 12 ejemplares sueltos, (Por favor, cumplimente este boletín con sus datos personales e 
indíquenos con una (XJ la forma de pago por usted elegida, métalo en un sobre y deposítelo en el buzón más próximo). 



APELUD05 L 



-1 I I I L_ 



rsOMIClUO L 
POBLACION l_ 
PROFESION L 



J I I I I I I I I 1 I I I L 



J I PROVINCIA 



J NUM. L_l I I PISO 

J I I I I L 



COD. POSTAL 1 

TELF. 



FORMA DE PAGO ELEGIDA: Reemtwlso □ Domicili ación Bancaiia □ 

Talón noml™Hvo que adjunto a favor de EDISA .... □ 

I INSTRUCCIONES DE DOMICIL1ACION BANCARIA (si es elegida por usted) 



Muy señores míos: 

Les ruego que, con cargo a mi cuenta n.° 

Editorial PLANETA-AGOSTIN1 a nombre de: 

I I I I I I i BANCO/C tic AHORROS I 1 

I lililí l DIRÍXCION 



de. 



.de ISL 



. atiendan, hasta nuevo aviso, el pago de los recibos que les presentará 



J I I I l I L 



J U_l I I I 1_L L__J 1_ 
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EL LAPIZ 
OPTICO 



El lápiz óptico es uno de los periféricos 
más espectaculares de los que es posible 
dotar al Commodore 64, No obstante, 
como veremos en este artículo, su reali- 
zación es muy sencilla, gracias a que 
nuestro ordenador ya tiene incorpora- 
dos parte de los circuitos necesarios. 
También veremos unos útiles progra- 
mas para sacar todo el jugo a este peri- 
férico. 

El lápiz óptico es, en apariencia, un 
lápiz normal al que le falta la punta y 
del que sale un cable. Esta similitud es 
la que le da ei nombre al dispositivo, 
aunque, como veremos, sus funciones 
son totalmente distintas. 

Lo primero que hay que decir es 
que se trata de un dispositivo electró- 
nico y óptico, ya que relaciona la luz 
que le llega de la pantalla del televisor 
con señales eléctricas que envía al or- 
denador. Estas señales informarán al 
ordenador del punto de la pantalla so- 
bre el que se encuentra situado el lápiz 
en cada momento. Para poder pro- 
porcionar esta información el orde- 



FIGURA 1 
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FUNCIONAMIENTO 
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EL CIRCUITO ELECTRONICO 


■ 


INTRODUCCION DE MEJORAS 




nador divide a nivel lógico la pantalla 
del televisor en una trama o retícula 
de pequeños puntos. Cada punto tiene 
asignadas dos coordenadas, una ver- 
tical y otra horizontal, de forma simi- 
lar a como hace cuando trabaja en alta 
resolución. En la figura 1 se represen- 
tan los valores que asigna a cada punto 
de la pantalla. El lápiz trabaja com- 
pletamente con toda la pantalla del te- 
levisor, es decir, incluye tanto el fondo 
como el borde. 

PRINCIPIOS DE SU 
FUNCIONAMIENTO 



Como hemos dicho, el lápiz óptico 
se encarga de detectar la posición so- 
bre la que se encuentra en la pantalla. 
Para ello se basa en el hecho de que 
las imágenes de televisión se forman al 
recorrer un haz de electrones la pan- 
talla de línea en línea y de arriba hacia 
abajo. Al incidir el haz sobre un 
punto, éste se ilumina durante un ins- 
tante pequeño de tiempo, aunque a 
nosotros nos parezca que permanece 
iluminado permanentemente debido a 
que nuestra retina es incapaz de seguir 
variaciones tan rápidas. El haz de 
electrones se mueve a una velocidad 
tal que pasa por toda la pantalla (for- 
mada por 625 líneas) cincuenta veces 
cada segundo. El lápiz, no obstante, sí 
es capaz de detectar el momento en 
que pasa el haz c ilumina el punto. En 
ese momento envía una señal deter- 
minada al ordenador, que es quien 
está controlando permanentemente la 
posición del haz a través de su chip de 
vídeo (el VIC 6569). De esta forma, 
sabiendo en qué punto está el haz en 
cada momento y conociendo en qué 
instante éste pasa por la posición 
donde se encuentra al lápiz, es posible 
determinar su ubicación en la retícula. 

El Commodore posee una entrada 
específicamente destinada al lápiz que 
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se encuentra en el PORT 1 de juegos 
denominada LP (light pen); concre- 
tamente es el pin número 6, que coin- 
cide con la entrada del botón de dis- 
paro del joystiek. Un nivel lógico «1», 
es decir, 5 V., indica al ordenador que 
el lápiz ho ha detectado nada; ahora 
bien, al pasar éste a «0» el ordenador 
interpreta que se ha encontrado el 
haz. El encargado de controlar esta se- 
ñal es el Video Interface Controller, 
que es el circuito que maneja el haz. 
Al cambiar esta entrada de «1» a «0» 
el chip almacena los valores actuales 
del haz en dos registros internos, uno 
para la fila y otro para la columna. Es- 
tos registros conservan su valor hasta 
que se reciba una nueva transición y 
pueden ser leídos mientras tanto con- 
sultando las posiciones de memoria 
53267 y 53268, correspondientes a los 
registros 19 y 20 del VIC. 

Si se desea, al detectar el haz, el 
VIC puede generar una interrupción 
IRQ, con lo que pasará a ejecutar un 
programa en código máquina especí- 
fico. 

A través de la máscara de interrup- 
ciones del VIC se puede establecer si 
la interrupción se producirá o no. Pos- 
teriormente se ilustrará con un pro- 
grama este modo de funcionamiento. 

EL CIRCUITO ELECTRONICO 

El componente principal de cual- 



quier lápiz óptico es el transductor óp- 
tico-eléctrico, es decir, el elemento 
que es capaz de transformar variacio- 
nes luminosas en variaciones eléctricas 
de forma lo suficientemente rápida. 
Lo más adecuado por su bajo coste y 
buenas prestaciones es utilizar un fo- 
totransistor. El esquema teórico del 
circuito que se va a realizar se muestra 
en la figura 2. 

El primer bloque es el encargado de 
convertir las señales luminosas en 
eléctricas y el elemento principal será 
el fototransitor. La señal que tendre- 
mos a la salida de este bloque será de 
un nivel bajo y, por consiguiente, será 



necesario amplificarla para adecuar el 
nivel a la siguiente etapa. Finalmente 
aparece un generador de pulsos cuya 
salida se conectará directamente al or- 
denador. Se hace necesario este tercer 
bloque para que los impulsos tengan 
una forma cuadrada bien definida e in- 
teligible por el VIC. 

El circuito electrónico viene repre- 
sentado en la figura 3, en el cual se uti- 
lizan dos circuitos integrados que sim- 
plifican notablemente el montaje y lo 
hacen más fiable. Asimismo, en la fi- 
gura 4 se muestra el circuito impreso 
a tamaño natural, visto por la cara de 
las pistas de cobre, sobre el cual se 



FIGURA 3 
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puede realizar el montaje de los dis- 
tintos componentes. 

El circuito, para aquellos que ten- 
gan inquietudes electrónicas, funciona 
del siguiente modo. El fototransistor 
actúa como un transistor normal NPN, 
con la diferencia de que la corriente 
que pasa por el colector no es contro- 
lada por la corriente de base, sino por 
la potencial luminosa que incide. 
Cuanta más luz reciba, mayor será la 
corriente que lo atraviese y por tanto 
mayor tensión habrá sobre la resisten- 
cia RE Una tensión alta en Rl será 
indicativa de que se ha detectado el 
haz de la pantalla. 

Esta tensión es amplificada por IC1, 
que no es más que un amplificador 
operacíonal. La ganancia de dicho am- 
plificador está entre 4 y 6, pudiéndose 
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variar actuando sobre la resistencia de 
ajuste. Este margen de ganancias es el 
óptimo para un buen funcionamiento 
independiente de las características de 
luminosidad de la pantalla del televi- 
sor o monitor. 

La señal amplificada actúa sobre la 
entrada de un trigger Schmidt. Este 
circuito básicamente proporciona a su 
salida un valor bajo cuando su entrada 
(formada por una AND de cuatro en- 
tradas) supera un cierto umbral de 
tensión. Cuando esta tensión de en- 
trada cae por debajo de otro umbral, 
inferior al anterior, la salida pasa a un 
nivel alto. Cuando la señal de entrada 
vuelva a subir, la salida volverá a valer 
un nivel lógico «0» y así se repite el 
proceso. Obtenemos de esta forma 
a la salida un pulso cuadrado cada 
vez que el fototransistor detecte el 
haz, que es lo que nuestro ordenador 
espera del lápiz óptico. 



MONTAJE Y AJUSTE DEL LAPIZ 

El montaje no presenta dificultades, 
y es adecuado incluso para aquellos 
lectores que no estén introducidos en 
el montaje electrónico. Para los que 
tengan dificultades a la hora de soldar 
o sean principiantes en estos avatares, 
es aconsejable que no suelden los cir- 
cuitos integrados directamente sobre 
la placa sino que utilicen zócalos. Se 
debe prestar atención a la posición de 



los integrados y a las conexiones cort' 
el fototransistor y con el ordenador. 
Es conveniente empezar a soldar las 
resistencias y condensador primero, 
dejando los demás componentes para 
el final. 

* El fototransistor tiene tres termi- 
nales, pero sólo deben conectarse dos, 
el emisor y el colector, dejando li- 
bre el terminal de base. Este no debe 
ir soldado a la placa de circuito im- 
preso, ya que es el elemento que debe 
colocarse sobre la pantalla para detec- 
tar la luz. El fototransistor deberá, por 
tanto, conectarse con el resto del cir- 



que deseemos (aproximadamente 1 
metro). Para evitar que el fototransis- 
tor capte luz por los laterales que 
puede perturbar el buen funciona- 
miento del lápiz, deberá introducirse 
en un canuto, que puede ser el de un 
rotulador que previamente habremos 
vaciado. El diámetro interior debe ser 
lo suficientemente holgado como para 
que el fototransistor penetre sin difi- 
cultad, ya que se trata de un disposi- 
tivo sensible que no es conveniente 
forzar. La cara con la lupa debe si- 
tuarse a una distancia de aproxima- 
damente 1 cm de la punta del canuto. 
La punta de éste debe tener un diá- 
metro de unos 4 mm y si es menor se 
hará necesario ensancharla para que 
penetre una cantidad suficiente de luz. 
Los cables de conexión irán a través 
del canuto y saldrán por el extremo 
contrario a la punta, consiguiéndose 
así una forma estética. Es conveniente 
fijar los cables de salida de alguna 
forma al canuto, para evitar que el fo- 
totransistor se mueva al manipular el 
lápiz, protegiéndolo además de posi- 
bles tirones ocasionales. Para esto es 
muy útil algún tipo de pegamento o 
adhesivo. En la figura 6 se representa 
esquemáticamente cómo debe cons- 
truirse el lápiz. 

El circuito debe conectarse al or- 
denador a través del PORT 1 de jue- 
gos, que es el único port que dispone 
de entrada para el lápiz óptico (si lo 



cuito mediante un cable de la longitud conectáramos al port 2 no sucedería 



La relación de componentes de las figs. 3 y 4 es: 
Rl: 470 ohms, 1/4 watt (amarillo, violeta, marrón) 
R2: 3K9 ohms (naranja, blanco, rojo) 

R3: 12 Kohms " (marrón, rojo, naranja) 
R4: 270 ohms " (rojo, violeta, marrón) 
R5: 10 Kohms ajustable 
CMOOnF 25V. 

IC1: LM 358 (amplificador operacional) 
ÍC2: 74LS13 (trigger Schmidt) 
TI: Fototransistor TIL 81 
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FIGURA 6 




nada, pero no funcionaría). Del port 
debe extraerse la alimentación de 5 
voltios y la toma de tierra, que se en- 
cuentran respectivamente en los pins 7 
y 8. Además debe entregarse la infor- 
mación que dé el circuito a la entrada 
LP correspondiente con el pin 6. Por 
tanto, serán necesarios 3 hilos conduc- 
tores entre el circuito montado y el or- 
denador. Es aconsejable que la lon- 
gitud de dichos hilos sea corta, de me- 
nos de 10 cm, para así poder poner el 
circuito del lápiz cerca del ordenador 
sin tener demasiados hilos estor- 
bando. En el comentario se encuentra 
sin ninguna dificultad el conector 
apropiado para el Port de juegos. 

El buen funcionamiento del lápiz 
dependerá del brillo de la pantalla del 
televisor o monitor y del color de la 
misma. En principio el lápiz está di- 
señado para funcionar con un brillo 
normal que no moleste a la vista. Para 
probar el lápiz deberá ejecutarse el 
programa siguiente: 

10 POKE 53280, 1: POKE 

53281,1 
20 PR1NT PEEK (53267), PEEK 

(53268) 
30 GOTO 20 

Lo que hace el programa es poner 
la pantalla en blanco, que es el color 
más luminoso, leer la posición de lápiz 
óptico e ir imprimiéndola. Para ajus- 



tar el lápiz lo situaremos en el centro 
de la pantalla y lo iremos desplazando 
lentamente hacia cualquier dirección. 
Si vemos que los valores imprimidos 
no varían deberemos actuar sobre la 
resistencia de ajuste girándola en sen- 
tido horario para así aumentar la ga- 
nancia del amplificador. Si aun así no 
obtenemos respuesta deberemos au- 
menter ligeramente el brillo deí tele- 
visor hasta obtener variaciones en la 
lectura. SÍ incluso con un brillo fuerte 
de la pantalla derecha no se obtiene 
respuesta, se deberá desconectar el 
circuito y comprobar su montaje. 

Con el programa de lectura ade- 
cuado que se incluye posteriormente, 
el lápiz tiene una resolución muy 
buena, aproximadamente de unos dos 
pixels en sentido horizontal, que es el 
más problemático. El peor comporta- 
miento se observa en las cercanías de 
los bordes de la pantalla donde la cur- 
vatura de la misma es mayor y la lu- 
minosidad más pequeña. Para un co- 
rrecto funcionamiento deberá ponerse 
cuidado en mantener el lápiz siempre 
perpendicular a la pantalla, ya que de 
otra forma cometería un mayor nú- 
mero de lecturas erróneas. 

El color de la pantalla también in- 
fluye en el comportamiento del lápiz 
debido a que el fototransistor no res- 
ponde igual a todos los colores. Evi- 
dentemente el blanco, que es la mez- 
cla de todos los colores, es el más ade- 



cuado. El lápiz también funciona bien 
con colores claros, sobretodo con la 
gama de azules, especialmente el cian, 
y de verdes. Es particularmente mala 
la gama de los rojos y naranjas. 
Usando colores distintos al blanco 
puede hacerse necesario aumentar un 
poco el brillo. 

Por último sólo resta decir que el 
montaje del lápiz funcionará con el or- 
denador' V1C-20 de la misma forma, 
sin tener que hacer ninguna modifi- 
cación en el circuito. No sucederá lo 
mismo, como es lógico, con los pro- 
gramas, ya que están pensados para el 
Commodore 64. De todas formas no 
es demasiado difícil adaptarlos sa- 
biendo que las posiciones de memoria 
donde se guardan las coordenadas del 
lápiz son las 36870 para la coordenada 
horizontal y la 36871 para la vertical. 



RESOLUCION HORIZONTAL 

Mientras que la resolución vertical 
del lápiz es perfecta, no ocurre así con 
la horizontal. Esto es debido a que el 
haz barre la pantalla horizontalmente 
y así, mientras en pasar de una línea a 
otra tarda 64 us., es decir, 64 millo- 
nésimas de segundo, el tiempo que 
tarda en pasar de un punto a otro con- 
tiguo es mucho menor. Por este mo- 
tivo, si leemos continuamente una po- 
sición fija del lápiz, veremos que os- 
cila alrededor de un valor medio que 
es, precisamente, el correcto. 

Habrá que solucionar este problema 
de alguna forma. Lo más adecuado 
será obtener un valor medio a partir 
de varias lecturas. Esto lo podemos 
hacer bien en BASIC o bien en código 
máquina, que será mucho más rápido 
en hacer la medida. Describimos a con- 
tinuación un programa en CM. que 
aprovecha la interrupción IRQ 
que se genera al detectar el haz, con 
lo que de esta forma es posible tra- 
bajar en BASIC y hacer la media si- 
multáneamente de forma trasparente 
para el usuario. Explicaremos cómo 
puede hacerse esto para aquellos que 
se hayan sorprendido al leer que se 
pueden hacer varias cosas simultánea- 
mente y para que así puedan utilizarlo 
en otras aplicaciones creadas por ellos 
mismos- 
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PROGRAMA PARA OBTENER 



EL VALOR MEDIO 


En ensamblador: 




Q F 1 
O L 1 


C(h(f\ 1 


l HA -tí tRR 




QTñ <t F\CA 1 A 
1 A *p\JyJ I A 




1 HA =£t<Krt£{ 


L>y)y)o 


QTA <tQn 




1 ha i £ 

L UA tt^ 1 D 




QTA Ct M "3 1 A 




LUA TF^pL-^i 


C(h 1 1 


QTA cT(7jo i c 


C(h 1 A 


p\ 1 




RTQ 




lúa ■puyjio 


PÍÁ 1 Q 


TA V 

! AA 


Pí7i 1 A 


1 n a <t nM 1 q 
LUA j>uyj 1 y 


p(fi'\ n 

Vjjü 1 u 


. qta ínf/^ 1 Q 




A M Fi -tí- <£ íí 
AINU 4>yJo 


rchoo 
\j\p¿.¿. 


RMF ctPfA97 


PfhO A 


1 M P <t F A 1 
J IVI r ¡p lMO 1 


pchoi 
\MM i 


TY A 
1 AA 




ULU 




A PiP CQR 


Pfhl O 
\j\jj¿. D 


: b 1 A $ot> 


CChO Ps 


. 1 ññ -tí Q f7S í7S 
: LUA fF$>y)yj 


ijyjZ r 


a nr <t QP 


PrtQ 1 
L-^Jo 1 


QTA ÍOP 

1 A >poL 




nep ion 




RMF <CP/7Í/IF 




LUi 7Fq>y!Jo 




KUK ípoO 




. DAD CQR 




: Ut T 


pcái f 


DMF ÍP^QQ 

tí ín L $u^Joy 




1 RA tííR 
LUA $>OD 




QTA Q Q F 
1 A $oL 




LUA íP5>)¿lyj 




QTA <ÍÍ5R 
1 A $OD 


C048 


STA $8C 


C04A 


LDA #$08 


C04C 


STA $8D 


C04E 


PLA 


C04F 


TAY 


C050 


PLA 


C051 


TAX 


C052 


PLA 


C053 


RTI 


La versión BASIC es: 


10 FOR 1=49152 TO 49235 



READ A : POKE l,A : NEXT 
20 DATA 120,169,136,141,26, 
208,169,8,133,141,169,22, 
141,20,3,169,192,141,21,3 
30 DATA 88,96,173,19,208, 
170,173,25,208,141,25, 
208,41,8,208,3,76,49,234, 
138 

40 DATA 24,101,139,133,139, 
169,0,101,140,133,140, 
198,141,208,23,160,3,102, 
140 

50 DATA 102,139,136,208,249, 
165,139,133,142,169,0, 
133,139,133,140,169,8, 
133 

60 DATA 141,104,168,104,170, 
104,64 

El programa consta de dos partes 
bien diferenciadas. La primera parte 
se encarga de cambiar los vectores de 
salto de la interrupción IRQ (después 
se explicará qué significa esto), mien- 
tras que la segunda es la encargada de 
tomar las muestras y realizar la media, 
almacenando el resultado en una po- 
sición de memoria que luego podrá ser 
leída por cualquier programa. 

La primera parte realiza las siguien- 
tes funciones. En primer lugar se in- 
hiben las interrupciones para evitar 
que se pueda producir una interrup- 
ción mientras se están modificando los 
vectores de salto de la misma. A con- 
tinuación se escribe en la máscara de 



interrupciones del VIC para indicarle 
que genere una interrupción cada 
vez que el haz sea detectado. Segui- 
damente pone un contador a 8, ya que 
realizaremos la media de 8 muestras, 
que será utilizado por la segunda parte 
del programa. Y, finalmente, se cam- 
bia el vector de salto de la TRQ. Este 
vector indica al ordenador dónde se 
debe saltar cada vez que reciba una 
IRQ. Normalmente este vector 
apunta a la posición $EA31, pero no- 
sotros lo cambiamos para que salte a 
la segunda parte de) programa. Hecho 
esto se permiten de nuevo Las inte- 
rrupciones y se retorna el control al 
BASIC. Ahora cada vez que se pida 
una IRQ el control pasará a nuestro 
programa. 

La segunda parte es la que se en- 
carga de hacer la media de las 8 mues- 
tras. En primer lugar carga en el re- 
gistro X la coordenada horizontal del 
lápiz y en el acumulador carga el re- 
gistro de interrupciones del VIC, com- 
probando si la IRQ ha sido generada 
por el lápiz o no, ya que puede ser ge- 
nerada también por otros circuitos. Si 
no ha sido pedida por el lápiz el con- 
trol pasa a la rutina de IRQ normal, 
es decir, a la posición $EA31. En caso 
contrario se procede a ejecutar el pro- 
grama que realiza las medias. El valor 
de la coordenada horizontal se alma- 
cena en dos posiciones consecutivas de 
la memoria, concretamente en $8By 
$8C de la página cero, acumulándolo 
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al valor que ya había en esas posicio- 
nes. Luego se decrementa el contador 
para ver si ya se han sumado los 8 va- 
lores; si es así hace la media divi- 
diendo por 8 y la guarda en la posición 
$8E (142 en decimal), restaurando el 
contador a 8 y poniendo a las posi- 
ciones $8B y $8C. 

Para ejecutar el programa basta ha- 
cer SYS 49152. Aparentemente no 
pasa nada, pero nuestro programa ya 
está trabajando y mejorando consi- 
derablemente la resolución del lápiz 
en el eje X. El valor horizontal del lá- 
piz se lee ahora en la posición 142 y 
no en la 53267. 

Normalmente eí lápiz generará 50 
impulsos cada segundo, es decir, se 
producirá una IRQ y se tomará por 
tanto una muestra, cada 20 milésimas 
de segundo. Como necesitamos 8 
muestras para obtener la media no po- 
dremos leer la posición horizontal del 
lápiz en intervalos de tiempo menores 
que 160 milésimas de segundo. 

Hay que tener en cuenta que cada 
vez que se pulsan las teclas 
RUN/STOP y RESTORE, el vector 
de interrupciones se pone a su valor 
habitual, por lo que será necesario 
volver a hacer el SYS 49152 para reac- 
tivar nuestro programa. 

En la coordenada vertical no es ne- 
cesario realizar un proceso similar 
porque el valor obtenido directamente 
del registro del VIC ya es suficiente- 
mente exacto. 



CALCULADORA EN PANTALLA 

Una primera aplicación a la que el 
lápiz puede ir destinado es el control 
de programas y entrada de datos por 
pantalla. Así es posible ganar en er- 
gonomía en el uso de programas. Un 
ejemplo ilustrativo, a la vez que es- 
pectacular, es el control de una cal- 
culadora que aparece en pantalla sin 
más que situar el lápiz sobre la tecla 
que se desea «pulsar». Permite contro- 
lar la entrada de datos numéricos me- 
diante las «teclas» de números y el 
programa a través de las «teclas» de 
función que aparecen representadas. 

10 SYS 49152: POKE 53281, 
lhPOKE 53280, 11:VA$ ="[ 



14 ESPACIOS]" 
15 REM****DIBUJO DE LA 

CALCULADORA**** 
20 PRI NT"[SH I FT + CLR/HOM E] 

"TAB(11}"[CTRL+1][CTRL+ 

9][ 17 ESPACIOSHCTRL + 

0]" 

30 FORI = l TO 3:PRINT TAB{ 
ll)"[CTRL+9][CTRL + 0][ 1 
5 ESPACIOSHCTRL+9] [CT 
RL+0]":NEXT 

40 FOR 1 = 1 TO 3:PRINT 
TAB(11)"[CTRL + 9][ 17 
ESPACIOS] [CTRL + 
0]":NEXT 

50 PRINTTABÜinCTRL + 9] 
[CTRL + 2]M+ [CTRL + 1] 
[CTRL + 2] M [CTRL + 1] [C 
T R L + 2]CE[CTRL + 1] 
[CTRL + 2]CLR[CTRL + 1] " 

60 FOR 1 = 1 TO 2: PRtNT 
TABdinCTRL + 9] [ 17 
ESPACIOS][CTRL + 03" 
:NEXT 




70 PRINTTABÜinCTRL + 9] 
[CTRL + 2]CLM[CTRL + 1] 
[CTRL + 2]SQR[CTRL + 1] 
[CTRL + 2]X12[CTRL + 1] 
[CTRL + 2] : [CTRL + 1] " 

80 FOR 1-1 TO 2: PRINT 
TABUinCTRL + 9] [ 17 
ESPACIOSHCTRL + 0]":NEXT 

90 PRINT TABU IHCTRL + 9] 
[CTRL + 2] 7 [CTRL + 1] 
[CTRL + 2] 8 [CTRL + 1] 
[CTRL + 2] 9 [CTRL + 1] 
[CTRL + 2] X [CTRL + 1] " 

100 FOR 1-1 TO 2:PRINT 
TABÜinCTRL + 9][ 17 
ESPACIOSHCTRL +0]" 
:IMEXT 

110 PRINT TAB(ll)"[CTRL+9] 
[CTRL+2] 4 [CTRL+1] 
[CTRL+2] 5 [CTRL + 1] 
[CTRL + 2] 6 [CTRL +1] 
[CTRL + 2] - [CTRL + 1] " 

120 FOR 1 = 1 TO 2:PRINT 

TAB{11)"[CTRL + 9][ 17 
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ESPACIOS][CTRL + 
0]":NEXT 

130 PRINT TAB(11)"[CTRL + 9] 
[CTRL + 2] 1 [CTRL + 1] 
[CTRL + 2] 2 [CTRL + 1] 
[CTRL + 2] 3 [CTRL + 1] 
[CTRL + 2] + [CTRL + 1] " 

140 FOR 1 = 1 TO 2:PRINT 
TAB(11)"[CTRL + 9][ 17 
ESPACIOS][CTRL + 
0]":NEXT 

150 PRINT TABU D'TCTRL + 9] 
[CTRL + 2] [CTRL + 1] 
[CTRL + 21 [CTRL + 1] 
[CTRL + 2] + /-[CTRL + 1] 
[CTRL + 2] = [CTRL + 1] " 

160 PRINT TABÜD'TCTRL + 
9][ 17 ESPACIOS][CTRL + 
0]" 

170 WAIT653;1:X = PEEK(142): 

Y-PEEKC53268) 
175 REM****IDENTIFICACION 

DE LA TECLA**** 
180 IF Y<120 AND Y>105 




190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 



300 
310 



THENTY= 1 

IF Y<139 AND Y>131 
THENTY=2 

IF Y<163 AND Y>155 
THENTY-3 

IF Y<187 AND Y>179 
THENTY-4 
IF Y<211 AND Y>203 
THENTY-5 
IF Y<235 AND Y>227 
THENTY=6 
IFX<122 AND X>106 
THENTX-1 

IFX<135 AND X>123 
THENTX=2 
IF X<151 AND X>139 
THENTX-3 
IF X<170 AND X>154 
THENTX=4 
IFTX-0 OR TY=0 
THEN170 

FOR 1 = 1 TO 3:P0KE 
55463 + 120*TY+4 *TX+I; 
2:NEXT 

GT=(TY-1)*4+TX 
IF GT<13 THENON 
GTGOSUB 350;360;370; 
380;390;400;410;420; 
440¡450;460;470-GOTO 
330 

320 ON (GT-12)G0SUB 490; 
500;510;520;540;550; 
560;570;590;600;610; 
330 FOR 1 = 1 TO 3:P0KE 

55463 + 120*TY+4 *TX+I; 
1:NEXT 
340 TX=0:TY=0:IF FL=0 

THENGOSUB 720 
345 FL-0 : GOTO 170 
347 REM****RUTINAS PARA 
LAS TECLAS**** 
ME=ME+NA:RETURN 
NA=ME;RETURN 
NA = 0:ND=0:DP-0:RETURN 
380 NA=0:AC=0: YA=0: 
DP-0: ND-0: RETURN 
ME=0:RETURN 
NA = SQR( NA): RETURN 
NA=NA12:RETURN 
0?=4:YA=YA+1:IF YA=2 
THEN624 
430 AC-NA:NA = 0:AP = OP:FL 
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350 
360 
370 



390 
400 
410 
420 



= 1:DP = 0:ND = 0:RETURN 
440 NU = 7:G0T0 700 
450 NU = 8:G0T0 700 
460 NU = 9:G0T0 700 
470 0P=3:YA=YA+1:IF YA = 2 

THEN624 
480 AC=NA:NA=0: AP=OP: 

FL=1; DP=0: ND = 0: 

RETURN 
490 NU=4:G0T0 700 
500 NU = 5:G0T0 700 
510 NU=6:G0T0 700 
520 0P = 2:YA=YA+1:IF YA = 2 

THEN624 
530 AC=NA:NA = 0: AP=OP: 

FL-1: DP=0: ND=0: 

RETURN 

540 NU = 1:G0T0 700 
550 NU = 2:G0T0 700 
560 NU = 3:G0T0 700 
570 0P=1:YA=YA+1:IF YA=2 

THEN624 
580 AC-NA:NA=0: 

AP = 0P:FL=1: DP = 0: 

ND=0: RETURN 
590 NU = 0:GOTO 700 
600 DP=1:RETURN 
610 NA=-NA:RETURN 
615 REM****TOTALIZACION DE 

OPERACIONES**** 
620 0P = AP:YA=1 
624 IFAPoOP 

THENIT=OP:OP=AP:AP=IT 
630 ON OPGOTO 640;650;660; 

670 

640 AC=AC+NA:GOTO 680 
650 AC = AC-NA:GOTO 680 
660 AC=AC*NA:GOTO 680 
670 AC-AC/NA 
680 NA=AC:GOSUB 

720:YA=YA- 

1:DP=0:ND=0:FL=1:IF 

GT<>24THENIMA=0 
690 RETURN 

700 IF DP THENND = ND+1: 

NA = NA + NU/10 t ND:RETURN 
710 NA = NA* 10 + NU:RETURN 
715 REM****RUTINA DE 
IMPRESION**** 

720 PRINT 

"[CTRL+2][CLR/H0ME][ 
2*CRSR ABAJO]" TAB{12); 
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730 



VA$:PRINT "[CLR/HOMEH 
2*CRSR ABAJO]" TAB(12); 
LEFT$(VA$;15- 
LEN(STR$<NA))) + STR$(NA) 
RETURN 



El programa ejecuta todas las fun- 
ciones que tiene una calculadora co- 
rriente: 

— Suma, resta, multiplica y divide; 
— permite el cambio de signo; 
— eleva al cuadrado y extrae raíces; 
— posee una memoria acumulativa; 
— notación exponencial cuando el re- 
sultado excede de 12 dígitos. 
Debido a la estructura modular del 
programa es posible modificar alguna 
de estas funciones e incluir otras, se- 
gún las necesidades o gustos de cada 
uno. 

Para manejarla basta con posicionar 
el lápiz sobre la tecla que aparece en 
pantalla y que se desea «oprimir». 
Ésta es normalmente de color blanco, 
ya que es el más adecuado para el lá- 
piz. Cuando el lápiz está posición ado 
en la tecla basta con apretar la tecla 
SI 11 F r del lado izquierdo para indicar 
al ordenador que hemos hecho una se- 
lección. Inmediatamente éste res- 
ponde poniendo la tecla de color rojo 
durante un instante, indicándonos así 
que la tecla ha sido aceptada. Debe 
procurarse situar el lápiz en la parte 
blanca de la tecla y no sobre la le- 
yenda, ya que al ser de un color más* 
oscuro podrían producirse errores. 

Las teclas de la calculadora tienen 
asignada la siguiente función: 

M -I- Guarda en memoria el nú- 
mero que aparece en el dis- 
play, sumándolo a lo que ya 
hubiera. 

M Muestra en el display el con- 
tenido de la memoria, bo- 
rrando del mismo lo que hu- 
biera. 

CE Borra una entrada errónea, 
sin destruir las operaciones 
pendientes. 

CLR Borra el display y todas las 
operaciones pendientes, aun- 
que el número guardado en 
memoria se conserva. 

CLM Borra la memoria. 



SQR Extrae la raíz cuadrada del 
número que aparece en el 
display, conservando las ope- 
raciones pendientes. 

X f 2 Eleva el número del display 
al cuadrado. 

: Divide. 

x Multiplica. 

— Resta. 
+ Suma. 

al 9 Entradas numéricas. 

Indica que las cifras siguien- 
tes son decimales. 

+/— Cambia el signo del número 
del display. 

— Totaliza operaciones. 

Hay que tener en cuenta que el ac- 



tuar sobre las cuatro operaciones bá- 
sicas (+, -, X, :) totaliza las opera- 
ciones pendientes sin tener en cuentí 
ninguna jerarquía matemática. 

Los límites de los números mane 
jados están fijados por la capacidad de 
cálculo del propio ordenador y si se 
sobrepasan aparece el típico mensajs 
de error OVERFLOW ERROR 
Este límite está fijado en el numere 
1.70141884 E + 38. 

A continuación aparece el listad* 
del programa CALCULADORA. 

Naturalmente lo primero que hace 
el programa es dibujar la calculadora 
en pantalla en color negro para así lo- 
grar una clara definición de las teclas. 
Hecho esto, procede a la consulta de 
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21 ARíA^^ — 
3) VOLUME 




26 INPUT 




Hardware 



los valores del lápiz aprovechando el 
programa en código máquina que ya 
vimos para obtener la posición hori- 
zontal. Estos valores se comparan con 
unos límites para conocer la tecla que 
fue seleccionada, en concreto TY in- 
dica la fila en la que está situada y TX 
la columna. Si ambos valores son nu- 
los se concluye que no se ha detectado 
ninguna tecla. Todo este proceso se 
desencadena si la tecla SHIFT ha sido 
pulsada. Conocidos el valor de TX y 
TY se sabe cuál es la función a reali- 
zar, pero antes de acceder a ella se 
pone la tecla en rojo. Debido a que las 
funciones están en subrutinas es muy 
fácil modificarlas para que una tecla 
concreta ejecute una operación dis- 




tinta de la prevista inicialmente. 

La variable principal del programa 
es AC, ya que en ella se almacena el 
resultado de los cálculos. NA es una 
variable intermedia en la que se va 
guardando el número entrado; sobre 
ella actúan las funciones SQR y X f 2. 
Se manejan también algunos indica- 
dores o «flag», como YA, indicativa 
de que se ha de totalizar la operación 
pendiente, y DP, que expresa que es- 
tamos en modo decimal. 

DIBUJANDO CON EL LAPIZ EN 
ALTA RESOLUCION 

Ésta es quizá la aplicación más evi- 
dente e interesante a la que puede ir 
destinado nuestro lápiz. Parece claro 
que un lápiz, sea óptico o no, debe 
servir para dibujar, pues bien, con el 
siguiente programa podremos utilizar 
la pantalla del televisor como si fuera 
una hoja de papel y realizar en ella vis- 
tosos dibujos utilizando el lápiz óp- 
tico. Para evitar que el programa se 
haga demasiado complejo y lento es 
necesario utilizar el cartucho SI- 
MON 1 S BASIC, ya que dispone de 
una potencia gráfica mucho mayor 
que el BASIC original del Commo- 
dore, aunque también es posible es- 
cribir un programa para dibujar con el 
lápiz sin utilizar dicho cartucho. 
Aparte de la función básica de dibujar 
punto a punto, se incluyen otras fun- 
ciones para ayudar en la creación de 
los dibujos. Estas funciones son las si- 
guientes: 

— LINE: Traza una línea recta entre 
dos puntos. 

— CIR- Dibuja una circunferencia 
CLE: tomando como datos el cen- 
tro de la misma y su radio. 

— FILL: Rellena una área delimitada 
por una línea cerrada con 
un color determinado. 

También existe además la función 
PLOT, que va dibujando puntos por 
donde pasa el lápiz. 

5 REM****DISEÑO DE LA 

FLECHA**** 
10 DESIGN 0,49152 + 2048 
20 @ B 



30 @. ..... BB. 

40 @ BBB 

50 @. . . BBBBB 

60 @. BBBBBBBBBBB 

70 @BBBBBBBBBBBB. 

80 @. BBBBBBBBBBB 

90 @. . . BBBBB, 

100 @ BBB 

110 @ BB. . . . . 

120 @ B 

130 @. 

140 @ 

150 @ 

160 @ 

170 @ 

180 @ 

190 @ 

200 @ 

210 @. . . 

220 @ 

230 INPUT 

"[SHIFT+CLR/HOMEH 
2*CRSR ABAJO][ 3*CRSR 
DCHAJCOLORES DE DIBUJO: 
C1,C2",C1,C2: 
COLOUR 5,0 

240 H I RES 5,6:MULTI 1, 
C1.C2 

250 MOB SET 0,32,1,0,0 
260 MOB SET 1,32,2,0,0 
270 TEXT0,0,"[1][CTRL+9]PLO 
T[CTRL + 0][COMM+ +]LIN 
E[COMM+ +]CIRC[COMM 
+ +]FILL[COMM+ +1M, 
1,8 

280 M0=1:C0=I:RL0CM0B 0, 

170,145,3,1 
285 REM****OBTENCION 

COORDENADAS**** 
290 NX=0:FOR 1-1 TO 

16:NX=NX+(PEEK(53267)- 

60):NEXT :NX=NX/16:NY = ( 

PEEK{53268)-50) 
300 IF NX<0 OR NY<0 THEN290 

310 SX=NX*2 + 25:SY + NY + 38: 
RLOCMOB 0,SX,SY,3,1 

311 REM****CAMBIO DE 
COLOR***" 1 

312 IF PEEK{197} = 57 
THENC0=1 

314 IF PEEK(197) = 56 

THENC0=2 
316 IF PEEK(!97) = 59 
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THENC0=3 
320 IF PEEK(653) = 

THENSP=0:GOTO 290 
330 IF SY<50 THEN410 
335 REM****EJECUCION DE LAS 

FUNCIONES 5 "*** 
340 ON MOGOTO 350,360,380, 

400 

350 IF SP=0 THENSP=1:CX = 

NX:CY = NY.-PLOT CX,CY,CO: 

GOTO 290 
355 LINE CX,CY, NX,NY, 

CO:CX=NX:CY=NY:GOTO 

290 

360 IF YA=1 THENLINE NX, NY, 
CX,CY,CO:RLOCMOB 1,0,0, 
0,1:YA=0:GOTO 290 

370 YA=l:CX=NX:CY=NY:MMOB 
1,0,0,SX,SY,3,1:GOTO 290 

380 IF YA=0 THEN370 

390 R = SQR((CX-NX)12 + (CY- 
NY) t 2/4) ■ 

395 CIRCLE CX,CY,R,R*2, 
CO:RLOCMOB 1,0,0,0, 
1:YA=0:GOTO 290 

400 PAINT NX,NY,CO:GOTO 290 

405 REM****CAIV1BI0 DE 
FUNCION**** 

410 FOR 1 = T0 8:LINE 0,1,160, 
l,0:NEXT 

420 ON INT (NX/40) + l GOTO 
430,440,450,460 

430 TEXT I 0/'[1][CTRL + 9]PL 
OT[CTRL + 0][COMM+ +]LI 
NE[COMM+ +]CIRC[COM 
M+ +]FILL[COMM + + ]", 
1,1,8:M0 = 1:G0T0 290 

440 TEXT 0,0,"[1]PLOT[COMM 
+ +][CTRL + 9]LINE[CTR 
L+0JÍCOMM+ +]CIRC[CO 
MM+ + ]FILL[COMM + + 
]",1,1,8:M0 = 2:G0T0 
290 

450 TEXT 0,0 f "[lIPLOT[COM 
M+ +]LINE[COMM+ +][C 
TRL+9][CIRC[CTRL+0][CO 
MM+ +]FILL[COMM+ + 
]",1,1,8:M0 = 3:G0T0 290 

460 TEXT 0,0,"[1]PLOT[COMM 
+ +]L!NE[COMM+ +]CIR 
C[COMM + +][CTRL + 9]FIL 
L[CTRL + 0][COMM+ + ]",!, 



1,8:M0-4:G0T0 290 

El programa es muy sencillo de uti- 
lizar. Al ponerlo en marcha, nos apa- 
rece una flecha blanca que apunta a la 
coordenada de dibujo. Situando el lá- 
piz sobre ella, es posible desplazarla 
en cualquier dirección. El desplaza- 
miento debe efectuarse de forma lenta 
para que éste siga bien al lápiz. Esto 
se debe a que es necesario hacer una 
serie de medias estadísticas para ob- 
tener una coordenada horizontal es- 
table, como ya hemos visto. Inicial- 
mente el programa trabaja con la fun- 
ción PLOT, pero para cambiarla basta 
con desplazar la flecha hacia la parte 
superior de la pantalla donde apare- 
cen representadas las posibles funcio- 
nes. Seleccionando una de ellas con la 
flecha y pulsando la tecla SHIFT de la 
izquierda se cambia el modo de fun- 
cionamiento y se pasa al deseado. En 
todo momento, el modo en el que es- 
tamos aparece representado en vídeo 
inverso. A continuación se detalla el 
funcionamiento de cada función: 

— PLOT: Aparece un punto en el lu- 
gar que indica la flecha al 
apretar la tecla SHIFT iz- 
quierda. El trazo que se ob- 
tiene es continuo si la man- 
tenemos apretada, bien sea 
manualmente o con SHIFT 
LOCK. 

— LINE: Para trazar una línea recta 
basta con llevar la flecha 
blanca hasta el origen de la 
misma y apretar SHIFT. 
Aparecerá una flecha roja 
sobre dicho punto para re- 
cordárnoslo. Llevando 
ahora la flecha blanca al 
otro extremo de la recta y 
apretando SHIFT de 
nuevo, la recta quedará tra- 
zada, desapareciendo la fle- 
cha roja. 

— CIR- Estando seleccionada esta 
CLE: función, lo primero que de- 
bemos hacer es seleccionar 
el centro de la circunferen- 
cia, de la manera habitual. 
Aparecerá como siempre la 
flecha roja en dicho punto. 
Seleccionando ahora un 



punto por donde deba pasar 
la circunferencia, ésta se 
trazará automáticamente. 
— FILL: Para rellenar un área basta 
con seleccionar un punto in- 
terior a la misma con la fle- 
cha blanca y pulsar a conti- 
nuación la tecla SHIFT. 

El programa permite, además, tra- 
bajar en modo multicolor, ya que es 
posible utilizar cuatro colores simul- 
táneamente en la pantalla. Dos de 
esos colores ya están asignados, y son 
concretamente el negro para el fondo 
de la pantalla y el blanco. Los otros 
dos pueden ser elegidos por el usuario 
al principio del programa. Antes de 
empezar a dibujar, el programa pide 
dichos colores que deben introducirse 
con los números habituales asignados 
por Commodore. Se utiliza el blanco 
como un color fijo para ganar en ve- 
locidad. Si situamos el lápiz sobre una 
zona blanca la flecha se desplazará ins- 
tantáneamente a esa zona. Así la se- 
lección de funciones podrá hacerse 
con rapidez. La forma de elegir los co- 
lores de dibujo es la siguiente: pul- 
sando la tecla «— el color de trabajo 
será el blanco; oprimiendo «1» pasa- 
remos a utilizar el primer color pre- 
seleccionado; y haciendo lo propio 
con «2» se utilizará el segundo. 

El programa desarrollado utiliza co- 
mandos propios del cartucho SI- 
MON'S B ASIC, por lo que puede re- 
sultar un tanto extraño. Lo primero 
que hace es diseñar la flecha que se 
moverá por la pantalla. A continua- 
ción se piden los colores de dibujo y 
se pasa a Ja pantalla de alta resolución 
en la que se va a trabajar. Se leen en- 
tonces los valores del lápiz despla- 
zando la flecha según lo que éstos in- 
diquen. Así es posible mover la flecha 
por cualquier lugar de la pantalla. En 
el caso de que se haya pulsado la tecla 
SHIFT se sale del bucle de movi- 
miento y comprueba si se ha efectuado 
alguna nueva selección. En tal caso se 
cambia la bandera de selecciones 
(MO) y se pone en vídeo inverso la 
función elegida. En caso de haber pul- 
sado SHIFT y no haber hecho ninguna 
selección el programa pasa a ejecutar 
la función actual. En caso de PLOT. 
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se irá trazando una línea que una el 
punto anterior con el actual mientras 
no deje de pulsarse SHIFT. Las otras 
funciones se realizan directamente uti- 
lizando comandos de la ampliación del 
BASIC. Durante el bucle de movi- 
miento también se comprueba si al- 
guna de las teclas de color ha sido pul- 
sada, pasándose en tal caso a actuali- 
zar el valor de la variable CO que con- 
tiene el número de color empleado en 
el dibujo. 

Existe un compromiso entre la ve- 
locidad del movimiento de la flecha y 
la precisión del mismo. La necesidad 
de hacer una media aritmética pro- 
voca la ralentización del bucle de mo- 
vimiento. Podemos acelerar el movi- 
miento de la flecha si tomamos un nú- 
mero menor de muestras; no obstante 
esto traerá consigo un empeoramiento 
de la precisión horizontal. Por contra 
lograremos aumentarla tomando un 
número mayor de ellas, descendiendo 
lógicamente la velocidad de desplaza- 
miento de la flecha. Es aconsejable 
evitar dibujar cerca de los bordes, 
donde la precisión es menor como ya 
se ha comentado más arriba. 



El programa puede ampliarse según 
las necesidades de cada uno. Por 
ejemplo, puede realizarse un volcado 
de la pantalla de alta resolución en la 
impresora mediante las instrucciones 
que incluye el SIMON 'S para ello. 



ALGUNA MEJORA 
EN EL LAPIZ OPTICO 

En algunos casos puede resultar in- 
cómodo el tener que utilizar el teclado 
para validar la posición del lápiz. Una 
forma de independizar el lápiz del or- 
denador es añadirle al lápiz un pulsa- 
dor solidario al mismo en una posición 
cómoda para el usuario. Este pulsador 
sustituiría la tecla SHIFT en los pro- 
gramas descritos anteriormente. Será, 
entonces, necesario modificar una sola 
instrucción de los mismos. Concreta- 
mente deberá sustituirse las infraccio- 
nes 

XXX WAIT 653,1 
por 

XXX IF PEEK(56321)AND1 THEN 

XXX 

o 



XXX IF PEEK(653)=0 THEN YYY 
por 

XXX IF PEEK(56321)AND1 THEN 
YYY 

donde XXX y YYY son las líneas de 
programa. 

El interruptor solidario con el lápiz 
deberá ir conectado a los pins del port 
1 números 1 , correspondiente a una de 
las entradas del joystick, y 8, que es la 
destinada a masa. 

Ahora podremos controlar los pro- 
gramas con una sola mano, ya que el 
efecto que antes tenía la pulsación de 
ia tecla SHIFT lo ejerce ahora el pul- 
sador del lápiz. Esto resulta ser en la 
práctica mucho más cómodo y rápido 
de lo que parece ser a primera vista. 

Finalmente, te informamos que to- 
dos los componentes utilizados en la 
realización del lápiz pueden adquirirse 
fácilmente en los comercios especiali- 
zados de componentes electrónicos. 
El precio aproximado del material ne- 
cesario es de unas 1.200 pesetas (o al 
menos esto es lo que costó el proto- 
tipo). 

Ramón Ollé y Ramón Solé 
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En el sorteo correspondiente al número 20 entre quienes escribisteis mandando vuestros votos a los 

MEJORES DE INPUT han resultado ganadores: 



NOMBRE 



LOCALIDAD 



JUEGO ELEGIDO 



Carlos Vázquez Veiga 
J. José Montes Huertas 
Mariano Arrese González 
Feo. Javier Ros Muñoz 
Manuel Martín Giménez 
Miquel. Soteres Roig 
Antonio Pérez Cano 
Víctor Martínez Conté 
Santiago Rodríguez Vivas^ 
Feo. Javier de las Heras Ángel 



La Coruña 

Barcelona 

Madrid 

Barcelona 

Almería 

Tárrega (Lleída) 

Paíencia 

Zaragoza 

Barcelona 

Valencia 



Two on two 
Two on two 
Two on two 
Gauntlet 

Golpe en la pequeña China 
Howard 

Golpe en la pequeña China 

Laberinto 

Aliens 

Aiiens 
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En INPUT estamos convencidos de que aún 
puedes hacer muchas más cosas con tu 
ordenador. Sin duda, muchos lectores estaréis 
utilizando vuestro micro para funciones de lo más 
variadas, en unos casos; pintorescas, en otros; 
mientras que algunos listillos habrán podido 
utilizarlo para resolver tareas complejas. Es lógico, 
modificando programas y variando los periféricos 
nuestro ordenador puede prestar sus servicios en 

infinidad de facetas. INPUT quiere que esas 
aplicaciones y utilidades a las que has conseguido 

dedicar tu ordenador, sean conocidas por todos 
sus lectores y por eso ha organizado el «Concurso 
de Aplicaciones y Utilidades», en el que puede 
participar cualquiera de nuestros lectores. 






UTILIDADES Y APLICACIONES: Si tu orde- 
nador controla la calefacción de tu casa, gobierna 
un robot, dirige un pequeño negocio, organiza la 
maqueta de tu tren eléctrico, o cualquier cosa in- 
teresante u original; envíanos información gráfica y 
listados de tus programas, grabados en un cassette, 
diskette o microdrive. 

Todo ello habrá de venir acompañado por un 
texto que aclare cuál es su objetivo, el modo de fun- 
cionamiento y una explicación del cometido que 
cumplen las distintas rutinas que lo componen. El 
texto se presentará en papel de tamaño folio y me- 
canografiado a dos espacios. No, importa que la re- 
dacción no sea muy clara y cuidada; nuestro equipo 
de expertos se encargará de proporcionarle la forma 
más atractiva posible. 

UN JURADO propio decidirá en cada momento 
qué colaboraciones reúnen los requisitos adecuados 
para su publicación, y evaluará la cuantía del pre- 
mio en metálico al que se hagan acreedoras. 

No olvidéis indicar claramente para qué ordena- 
dor está preparado el material, así como vuestro 



nombre y dirección y, cuando sea posible, un telé- 
fono de contacto. Entre todos los trabajos recibidos 
durante los próximos tres meses SORTEARE- 
MOS: 

• Un premio de 50.000 ptas. 

• Un premio de 25.000 ptas. 

• Un premio de 10.000 ptas. 

en material microinformático a elegir por 
los afortunados. 

¡No os desaniméis!, por muy simples o complejas 
que puedan parecer vuestras ideas, todas están re- 
visadas con el máximo interés. 

INPUT C0MM0D0RE 

Aribau, 185. Planta 1. a 
08021 BARCELONA 



NOTA: INPUT no se responsabiliza de ia devolución del ma- 
terial que no vaya acompañado por un sobre adecuado con el 
franqueo correspondiente. 
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EL ZORRO 

Y LAS OCAS (II) 



COMO PROGRAMAR TRABAJOS 



INICiALIZACION 



EJECUTANDO EL PROGRAMA 



TRAZANDO MOVIMIENTOS 



¿OTRA PARTIDA? 



Haz uso de la última parte de la teoría 
para empezar a escribir el juego del Zo- 
rro y las Ocas. 

He aquí la rutina para inicializar el 
juego y para trazar movimientos. 

Esta vez vas a introducir rutinas de 
inicialización y la rutina principal de 
trazado. Asimismo, también podrás 
proponer al jugador otra partida, pero 
en este estadio aún no podrás ejecutar 
con RUN el programa, pues aún hay 
varias rutinas importantes que añadir. 

VISION GLOBAL 

El programa trabaja evaluando 
cada una de las posiciones del juego 
de acuerdo con la configuración de las 
fichas. A cada posición se le adjudica 
un valor numérico en el programa; de 
este modo, el programa es capaz de 




seleccionar el mejor movimiento ve- 
rificando en los resultados el valor más 
alto. 

El programa opera en tres niveles 
cuando planea la jugada. El nivel uno. 
sólo proyecta un movimiento — se 
trata del así denominado un movi- 
miento — . En el nivel superior del 
juego utiliza el algoritmo alfa-beta 
para ahorrar tiempo al buscar entre las 
muchas vías de posibilidades que pro- 
gresivamente se van multiplicando. 
En niveles intermedios, el programa 
repasa todas las posibilidades existen- 
tes. 

Las rutinas desde la línea 20 10 hasta 
la línea 3000 sólo se ejecutan una vez, 
de ahí que estén ubicadas al final del 
programa. Con estas rutinas de poco 
uso situadas al final del programa, las 
rutinas principales pueden ser ubica- 
das cerca del principio del programa 
para lograr mayor velocidad. 

INICIALIZACION 

He aquí las rutinas para íniciaíizar el 
juego. Las direcciones han sido DI- 
Mensionadas y las FUNciones DEFi- 
nidas. Estas líneas definen el cuadro 
de gráficos: 

3 PRINT '[SHIFT+CLR/HOME][ 



3*CRSR abajo]';CHR$(8) 

4 x=16:F0R Z = TO 15:P0KE 
646,Z:IF z = 6 THENNEXT z 

5 x=x - l:POKE 646 ; z:PRINT 
TAB{5 + x)'[SHIFT + n] zorro y 
ocas [SHIFT+n]':NEXT z 10 
POKE 53272¡19:G0T0 
2010 

2010 DIM g(4) 

2020 DIM b(31):b(0)=l:FOR 

i = l TO 31:b(i) = b(¡ - 1) * 

2:NEXT i 
2026 fax=b(31) * 2 - 

b(24):e=le30:h= - le30 
2030 I2 = L0G(2):DEF FN 

a(f) = INT [LOG[f] / 12 + 

.001) 

2040 DIM h$(15,l):DIM g$(l 
):g$(0) = '[SHIFT+l][SHIF 
T + @][ 2 espacios]":g$( 
1) = "[SHIFT+1][SHIFT+ 
@][SHIFT + u][SHIFT + v]" 

2045 DIM h$(l):h$(0J = T [ 2 es 
pacios][SHIFT + l][SHIFT 
+ @]' : h$(l) = '[SHIFT + u][ 
SH1FT + v][SHIFT+l][SHIF 
T+@T 

2050 x =0:FOR a = TO l:FOR 
b = TO 1:F0R c = TO 
l:FOR d = TO l:b$(x, 
0)=g$(d) + g$(c) + g$<b) 
+ g$(a) 

2060 b$(x,l)=h$(a) + h$(b) + 

h$(c) + h$(d):x-x + 

1:NEXT d,c,b,a 
2070 DIM s$(7):FOR a0 TO 6 

STEP2:F0R b=a * 4 TO a * 

4 + 3 

2080 s$(a)=s$(a) + 
TSHIFT+o][SHIFT + p]' + 
RIGHT$(STR$[b],2) 

2081 s$(a + l) = RIGHT$(STR$(b 
+ 4), 2) + TSHIFT+o] 
[SHIFT + p]' + s$(a + 1) 

2082 NEXT b,a 
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2090 DI M f$(l):f$(0) = "[SHIFT 
+ l][SHIFT+@][SHIFT + w] 
[SHIFT+x]":f$(l) = "[SHIF 
T+w][SHIFT + x][SHIFT+l 
][SHIFT+@]' 

2095 DEF FN c(b) = (3 AND b) * 
(4 - 2 * (4 AND b)) + 3 * 
(4 AND b) 

La línea 2010 DIMensiona la direc- 
ción utilizada para almacenar las po- 
siciones de las ocas. La línea 2020 nu- 
mera cada casilla del tablero que se 
utilizará en el juego. 

La línea 2030 determina el número 
de configuraciones que pueden ser 
evaluadas por el programa. 0,001 ha 
sido añadido cuando se ha DEFinido 
la FUNeión A para evitar el redon- 
dear errores cuando se utilizan LO- 
Garitmos. La dirección B$, DIMen- 
sionada en la línea 2040, se utiliza para 
mostrar líneas del tablero que están 
ocupadas por piezas. F$ se utiliza para 
la pieza que representa al zorro y a la 
casilla blanca, y H$ para las ocas y las 
casillas blancas. SS se utiliza para de- 
terminar los números de las casillas. 



AL INICIO 

Esta rutina permite al jugador elegir 
quien juega, qué piezas (si el zorro o 
las ocas) y seleccionar el nivel de ha- 
bilidad del ordenador. ¡No es dema- 
siado difícil — al principio — ! 



2500 
2700 



2710 

¡ 

2720 
2730 
2740 



2750 



DI M r(1999),s(1999) 

f=l:g(l) = 28:g(2) = 29:g( 
3) = 30:g(4) = 31:GOSUB 
2710:GOTO1010 
PRINT '[SHIFT+CLR/ 
HOMElquieres ser el zorro 
(s/n)?' 

GET i$ : pf=0-IF i$ = 's' 

THEN2760 

pf = 1 : 1 F i$o'n' 

THEN2720 

$f:INPUT '[SHIFT+CLR/ 
HOMEjnivel de juego del 
zorro (l-10)' ; sf:IF sf<l 
ORsf>10 
THEN2740 

hf= - 131 * (sf=5) - 613 



* (sf = 6) - 1997 * (sf>6) 
2760 PRINT '[SHIFT+CLR/ 

HOMElquieres ser las ocas 
(s/n)?' 

2770 GET i$:pg=0:IF i$ = 's' 

THEN2860 
2780 pg=l:IF r$<>'n* 

THEN2770 
2790 sg = 0:INPUT '[SHIFT+CLR/ 

HOMElnivel de juego de ¡as 

ocas (l-10)' ; sg:IF sg<l OR 

sg>10 THEN2790 
2800 hg= - 131 * (sg=5) - 

613 * (sg = 6) - 1997 * 

(sg>b):IF hf<hg 

THENhf=hg 
2860 PRINT '[SHIFT + CLR/ 

HOMEJdeseas modificar la 

posición inicial' 
2870 PRINT '[ 13*CRSR 

dcha.](s/n) ?' 
2875 GET i$:IF ¡$ = 'n' 

THEN3000 
2880 IF i$<>'s' THEN2875 
2890 GOSUB 210:GOSUB 

310:PRINT 'quieres mover 

el zorro (s/n)? '; 
2900 GET i$:IF i$='n' 

THEN2930 
2903 IF ¡$<>'s' THEN2900 
2915 PRINT 's' 
2920 INPUT '[ 8*CRSR 

dchajmover zorro a';f:IF 

f<0 OR f>31 THEN2920 
2925 GOSUB 340 
2930 FOR g=l TO 4:G0SUB 

210:GOSUB 310 
2940 PRINT 'quieres mover la 

oca n.' ; g(g):PRINT '(s/n)? '; 
2950 GET i$:IF i$ = 'n' 

THEN2990 
2960 IF i$<>'s' THEN2950 
2965 PRINT 's' 

2970 INPUT '[ 8*CRSR 
dchajmover oca a'¡ 

- i:GOSUB 340 

2971 IF FN x(i) OR i = f 
THENPRI NT TAB(8) ; 'casilla 
ocupada':GOTO 2940 

2972 IF i<0 OR i>31 
THEN2970 

2980 g(g) = i 




2990 



2995 
3000 



NEXT g : IF FN x(f) 
THENPR1NT TAB(8);'hay 
una oca debajo del zorro' 
FOR i = l TO 1500:NEXT i 
RETURN 



La línea 2700 determina la posición 
de partida, con las cuatro ocas ocu- 
pando las cuatro casillas de la parle in- 
ferior del tablero, y el zorro ocupando 
la segunda casilla de la línea superior 
izquierda del tablero. 

Una vez que la línea 2700 ha inicia- 
lizado la posición de partida del zorro 
y las ocas, las líneas 2710 a 2750 dan 
al jugador la opción de jugar a ser el 
zorro y determinan quién va a jugar a 
ser el zorro. Las líneas 2760 a 2800 son 
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similares, solo que aquí al jugador se 
le da la opción de jugar a ser las ocas. 

El juego ha sido diseñado de ma- 
nera que permita, o bien ajustar la po- 
sición de partida, o bien continuar en 
la posición de partida en la que de jaste 
el juego la última vez (necesitarás to- 
mar notas de las posiciones de las fi- 
chas cuando acabe el juego) o bien in- 
tentar ganar (¡o perder!) desde una 
posición particularmente interesante. 
Las líneas 2860 a 3000 preguntan si el 
jugador desea modificar la posición de 
partida, dan la señal de preparado y 
aseguran que las posiciones elegidas 
sean correctas. 

TRAZANDO MOVIMIENTOS 

La rutina de trazado de movimien- 
tos es una de las más importantes del 
programa. 

2100 D1M r$(7) 

2110 DEF FN f(b) = ((b>3) + 

(.b<28)) * (((3 AND b)<3) 

- 1) - 1 




2120 DEF FN g(b)=(b>3) * {((3 
AND b}<3) - 1) - 1 

2130 DEF FN m(a) = b - 2 * (3 
AND b) - 2 - 8 * (b<4 
OR a>l) - (1 + a * 7) * 
((3 AND b) = 3) + (1 AND 
a) 

2140 DEF FN x(b) = (b=g(l) OR 
b=g(2) OR b=g(3) OR 
b=g<4)) 

2142 DEF FN z<b)= - (b = g(D) 
- (b=g(2)) * 2 - (b = g(3)) 
* 3 - (b = g(4)) * 4 
2150 DI M m(3,31),x(31),z<31) 
2160 FOR b = TO 31:F0R a = 
TO 3:m(a,b):FN m(a):NEXT 
a:x(b) = FN f(b):z(b) = FN 
g(b): NEXT h 

Las líneas 2110 a 2160 trazan el plan 
de movimientos del zorro y de las ocas 
en la dirección M. A lo largo de este 
plan también, se ajustan el número de 
posibles movimientos del zorro, direc- 
ción X, así como el número de posi- 
bles movimientos de las ocas, direc- 
ción Z. Las direcciones son copias de 
las funciones en las líneas 2110 a 2142. 

¿OTRA PARTIDA? 

Añade a continuación otra rutina 
«¿Otra partida?» 

1410 PRINT TAB(8);'deseas 

jugar otra vez (s/n)?' 
1420 GET i$:IF i$ = V 

THEN2700 
1430 1F ¡$<>'n' THEN1420 
1440 PRINT '1SHI FT+CLR/ ■ 

HOME][CTRL + 2]':POKE 

53272,21:END 

Estas líneas deberían resultarnos ya 
familiares, y entran en acción cuando 
las ocas intentan atrapar al zorro, o 
cuando el zorro intenta alcanzar el 
lado opuesto del tablero. 

No intentes ejecutar el programa 
con RUN en esta fase, pues aún hay 
que añadirle muchas partes de vital 
importancia. En la siguiente parte del 
artículo, insertarás las rutinas que te 
permitirán ejecutar el juego. 
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EL ZORRO 

Y LAS OCAS (Y III) 



Deja que tu ordenador recoja ideas 
antes de comenzar el juego. Con estas 
rutinas podrás jugar el papel del zorro o 
de las ocas y adelantarte para improvi- 
sar su jugada. 

Esta es la tercera y última parte del 
juego del Zorro y las Ocas. Las rutinas 
que quedan son las que permitirán al 
ordenador jugar la parte, ya sea del 
zorro o de las ocas. De hecho se puede 
programar al ordenador para que jue- 
gue ambas partes a la vez, cuando 
compita contra sí mismo, o bien pue- 
des programarlo para que no juegue a 
ser ninguna de las figuras, y jugar tú 
contra algún amigo utilizando el or- 
denador en lugar de un tablero y fi- 
chas. 

210 p=b(g(l)) + b(g(2)j + 

b(g(3)) + b(9(4)) 
220 x=f:JF p<b(31) THEN p = p 

- hx:x=31 - f 
230 p = p * h(x):RETURN 
250 f=FN a(ABS(p)) - 31 :b = p / 

b(f}:!F b<0 THENb = b + 

bx:f=31 - f 
260 FOR a = l TO 4:9(a) = FN 

a(b):b=b - b(9(a)) : NEXT 

a:RETURN 

Estas son dos de las rutinas más im- 
portantes del programa. La rutina que 



comienza en la línea 210 hasta la línea 
230 evalúa la posición de juego resu- 
miéndola en un número de una sola ci- 
fra. Luego, una vez que el programa 
ha decidido el valor del mejor movi- 
miento, ha de convertir ese número en 
un movimiento o en un juego de po- 
siciones para las fichas. Las líneas 250 
a 26Ü transforman el valor simple en 
el juego de valores necesarios para po- 
sicionar las fichas. 

Estas subrutinas son llamadas con 
frecuencia durante el programa, de 
manera que deberán estar colocadas 
correctamente al inicio del mismo. 

EL MOVIMIENTO DEL ZORRO 

1010 GOSUB 210 

1020 GOSUB 310:GOSUB 250 

1030 IF f>27 THENPRI NT 

TAB(8);'ha ganado el 

zorro': GOTO 1410 
1032 GOSUB 410:1 F v=h 

THENPRINT TAB(8);'han 

ganado las ocas':GOTO 

1410 

1040 IF pf THENPRINT TAB(8); 
'estoy pensando. ..':GOTO 
1110 

1050 INPUT '[ 8*CRSR 

dchajmover el zorro a';b 




1055 



1060 



1070 



11H 



1112 
1120 
1122 



GOSUB 340:IF h= - 1 
THENPRINT TAB(8);'han 
ganado las ocas':GOTO 
1410 

FOR a = TO x(f):x = m(a, 
f): IF x = b THEN IFNOT Ft 
x(x) THENf=bGOSUB 
210:GOTO 1200 
NEXT a:PRINT TAB(8); 
'movimiento ¡lega!':GOTO 
1050 

l=sf:m=sf:v(m) = e * m; IF 
m>4 THEN FOR a = TO 
hf:r(a)=0:NEXT a 
GOSUB 1120:GOTO 1200 
IF 1-1 THEN410 
IF Km - 2 THENGOSUB 
1610:1 F V<>0 
THENRETURN 




1130 \ 



1140 
1150 



- l:v(D = h * 
l:a(l) = x(f):f(l)=f 
f=m(a(l),f(D) 
IF FN x(f)<>0 
THEN1160 
1155 GOSUB 1320:1 F v>v(l) 

THENv(l)=V:(l)=f:IF v>v(l 
+ 1) THEN f=f(l):l = l + 
1 :RETURN 

a(l) = a(l) - 1 : 1 F a(l)> = 
THEN1140 



1160 



■ JUGANDO A NIVELES SUPERIORES 

■ LA RUTINA DEL MOVIMIENTO 


■ JUGANDO A NIVELES SUPERIORES 

■ USANDO EL LOGARITMO 


DEL ZORRO 


ALFA-BETA 


■ MOVIENDO LAS OCAS 


■ USO DE LAS TABLAS «HASH-CODE» 


■ ELIGIENDO EL MEJOR MOVIMIENTO 


PARA UN JUEGO MAS 



117(3 V=V(l):f=f(l):l = l + 1:IF 
l = m THENf = p(m - 
l):GOSUB 210:RETURN 

1172 IF Km - 2 THEN GOSUB 
1510:RETURN 

1180 RETURN 

Las líneas 1020 a 1 180 dirigen el mo- 
vimiento del zorro. La rutina utiliza la 
rutina de visualización del tablero 
para mostrar el estado actual del ta- 
blero, seguidamente pasa a compro- 
bar si el zorro ha ganado en la línea 
1030. En la línea 1032 comprueba si 
hay allí, al menos, un movimiento le- 
gal que pueda realizar el zorro (de lo 
contrario, ganan las ocas). 




Si el jugador es quien lleva el coli- 
r trol de las ocas, las líneas 1050 a 1070 
se encargan de introducirlo en el or- 
denador y de comprobar que el mo- 
vimiento efectuado sea efectivamente 
correcto. Si, por otra parte, es el or- 
denador el que controla al zorro, las 
líneas 1110 a 1112 son las encargadas 
de llevar a cabo el movimiento. El nú- 
mero de pliegues que el programa ob- 
serva, M, y el pliegue actual conside- 
rado, L, son colocados en la línea 
1110. Las líneas 1120 a LISO son una 
subrutina que evalúa el mejor movi- 
miento. 

Se utilizan cuatro direcciones en la 
rutina para el mejor movimiento: A 
contiene el número de movimientos 
que aún pueden ser intentados: V, el 
mejor resultado hasta el momento; P, 
el movimiento que ha conseguido este 




resultado, y F, la posición previa del 
zorro. 

MOVIENDO LAS OCAS 

500 v- - l:FOR c=l TO 

4:g = g(c): IFz(g)<0 
THEIMNEXT :RETURN 
502 FOR a = TO z(g):x=rn(a, 
g):v=v AND (FN x(x) OR 
x = f):NEXT : NEXT :RETURN 
1200 GOSUB 310:GOSUB 250 
1202 IF f>27 THENPRI NT 
TAB(8);'ha ganado el 
zorro':GOTO 1410 
1204 GOSUB 500: IF v 

THENPRI NT TAB(8);'ha 
ganado el zorro':GOTO 
1410 

1210 IF pg THENPRINT TAB(8); 
'estoy pensando. ..':GOTO 
1310 

1220 1NPUT 'I 8*CRSR 

dcha.Jque oca vas a mover'; 
g 

1225 GOSUB 340 
1230 c = FN z(g):IF c = 



1240 
1245 

1250 
1260 
1270 
1280 
1310 



1312 
1320 
1322 



1324 
1330 

1340 



THENPRINT TAB {8);'no 
hay ocas en";9:G0T0 1220 
INPUT '[ 8*CRSR 
dcha.lhasta donde';¡ 
GOSUB 340:IF ¡= - 1 
THENPRINT TAB(8) ; 'el 
zorro ha ganado' :GOTO 
1410 

IF FN x(i) THENPRINT 

TAB(8);'no encima de otra 

oca':GOTO 1220 

IF i = f THENPRINT TABC8); 

'no encima del zorro':GOTO 

1220 

FOR a= - 1TO z(g):IF 
a> = THENIF m(a,g) = i 
THEN g{c) = i:GOTO 1010 
NEXT a:PRINT TAB(8) ; 
'movimiento ilegal' :GOTO 
1220 

l=sg:m=sg:v(m)=h * m:IF 

m>4 THENFOR a-0 TO 

hf:r(a) = 0:NEXT a 

GOSUB 1320:GOTO 1020 

IF 1 = 1 THEN510 

IF l<m - 2 THENGOSUB 

1610:1 F v<>0 

THENRETURN 

1 = 1 - l:v(l) = e * l:C=l 

C(l)=C:f(l)=g(c):a(l) = 0:IF 

a(l)>z(g(e)) THEN1362 
b = m(a(l) ; f(l)):x=FN 
x(b):g(c) = b : IFx OR b=f 
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THEN1360 
.350 GOSUB 1120:c = c(l) 
.355 IFv<v{l) 

THENv(l)=V:p(l)-g(c) + c 

* 32:1 F v<v(l + 

l)THENg(c) = f(l):l = l + 

LRETURN 
.360 a(l)=a(l) + LIF 

a(l)<=z(f(D) TH EN 1340 
.362 g(c)=f(l):c = c + l:IFc<5 

THEN1330 
.370 v = v(l):l = I + 1 : 1 F l = m 

THENc = I NT (p(l - 1) / 

32):g(c) = p{l - 1} AND 

31:GOSUB210:RETURN 
372 IF ¡<m - 2 THENGOSUB 

1510:RETURN 
380 RETURN 

La rutina que va de la línea 1200 a 
a línea 1380 dirige el movimiento de 
as ocas. Hay rutinas para el caso en 
]ue el jugador controla las ocas — lí- 
ieas 1220 a 1290—, y para el caso en 
\ue es el ordenador quien controla las 
>cas —líneas 1320 a 1380. 



LOS MEJORES MOVIMIENTOS 



U0 v=h:FOR a=x(f) TO STEP 
- l:X = m{a,f):IF FN x(x)<0 
THENNEXT :I = 1:RETURN 

[20 b = f:f = X:GOSUB 

210:V = p:f=b:l = l:RETURIN 
>10 v = e:FOR c=l TO 

4:g = g(c):IF - bg>V 

THEN530 

">20 FOR a = TO z(g):x = m(a, 
g):IF FN x{x) OR x = f 
THENNEXT :GOTO 530 

)2S v=b(x) - b(g):d-c:b=x 

S30 NEXT 

C:g=g(d):g(d) = b:GOSUB 
210:V-p:g(d) = g:RETURN 

Estas rutinas están relacionadas con 
:1 «un movimiento», en otras pala- 
iras, en esta fase, el ordenador sólo 
)rograma un solo movimiento cuando 
:stá buscando el mejor movimiento. 

Las líneas 410 a 420 repasan todos 
os posibles movimientos que puede 
ealizar el zorro; utilizando la direc- 
ion M de trazado, coloca la subrutina 
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comenzando en la línea 2110 (ver an- 
terior)- La subrutina devuelve un va- 
lor de P, configuración posterior al 
mejor movimiento, y V, evaluación 
posterior al mejor movimiento. 

Las líneas 510 a 530 son una rutina 
similar, pero en esta ocasión, el or- 
denador calcula cuál es el mejor mo- 
vimiento para las ocas. P y V están fi- 
jadas de igual modo que en la rutina 
previa. 

En ambos casos, GOSUB 210 re- 
coge el mejor movimiento de entre to- 
dos los evaluados. 



LA TABLA HASH-CODE 



1510 GOSUB 210:c=p 

1520 c = c - I NT ((c / hf + c) - ) 

c) * hf : I F c<0 OR c>=hf 

THEN1520 
1550 FOR a = c TO c + 4: IF 

r(a)<>0 AND r(a)op 

THENNEXT : RETURN 
1560 r(a) = p:s(a)=v:RETURN 
1610 GOSUB 210:c = p 
1620 c=c- INT ((c / hf + c) - ) 

c) * hf : IF c<0 OR c> = hf 

THEN1620 
1650 FOR a = c TO c +4:1 F 

r(a)<>0 AND r(a)op 

THENNEXT :V=0:RETURN 
1660 v- - s(a) * 

(r(a) = p):RETURN 

En los niveles superiores de juego 
preferirás aplicar el algoritmo alfa- 
beta que ya hemos visto. En efecto, ya 
has utilizado previamente el algoritmo 
como parte de las rutinas de los mo- 
vimientos del zorro y del de las ocas. 
Antes de aplicar el algoritmo, com- 
prueba si es conveniente utilizar el al- 
goritmo (¿el nivel de juego elegido es 
suficientemente alto como para garan- 
tizar su utilización?). 

La rutina que va de la línea 1110 a 
la línea 1 150 controla al zorro mien- 
tras que la rutina que va de la línea 
1310 a la línea 1350 controla las ocas. 

El algoritmo se aplica en el último 
test IF al final de las líneas 1150 y 
1350, después de que V (M) ha sido 
colocado al nivel apropiado en las lí- 
neas 1110 y 1310. 



El algoritmo alfa-beta es más efi- 
ciente si el ordenador considera pri- 
mero cuáles son los mejores movi- 
mientos — para las ocas, la casilla del 
número más alto en cada fila de cuatro 
casillas, y para el zorro, la casilla 
abierta para él y que esté más cercana 
al final de las ocas. 

El algoritmo alfa-beta se utiliza con- 
juntamente con una técnica conocida 
como «hash-coding» con el fin de con- 
feccionar y utilizar una tabla de los 
movimientos ya considerados. Hash- 
coding permite al ordenador compro- 
bar rápidamente si el movimiento ya 
ha sido considerado. Cuanto más larga 
sea la tabla de hash-coding dentro del 
programa, más rápidamente se debe- 
ría poder ejecutar el programa. 

La tabla se inicializa en las líneas 
2500, 2750 y 2800. Hay «mejores va- 
lores» teóricos para las dimensiones 
de las direcciones que sostienen las ta- 
blas —línea 2500 — . Las direcciones 
han sido DIMensionadas lo más largas 
posible, indicando la memoria RAM 
disponible en cada ordenador. 

La tabla es puesta a cero en las lí- 
neas 1110 y 1310. los contenidos se ve- 
rifican en las líneas 1122 y 1322, y se 
colocan en las líneas 1172 y 1372. 



La subrutina de verificación se ini- 
cia en la línea 1610 y la subrutina de 
ajuste, en la línea 1510. 




FREDDY Y LA ARAÑA 
DE MARTE (I) 



■ 


LA TRAMA 


■ 


COMO SE PROGRAMA EL JUEGO 


■ 


OBTENCION DE LOS GRAFICOS 


■ 


FREDDY, FLECHAS, GLOBOS 


Y LA ARAÑA 



Abandona a su destino a Freddy y a la 
voraz araña de Marte mientras te ocu- 
pas de reconstruir uno de los juegos elec- 
trónicos más típicos. En el siguiente ar- 
tículo tendrás el programa completo. 

«Freddy y la araña de Marte», o «La 
pesadilla del limpiador de cristales», 
es un juego electrónico que, para ofre- 
cértelo completo, nos va a ocupar dos 
artículos, pero a cambio vas a conocer 
un clásico de los juegos electrónicos. 

En este primer artículo se estable- 
cen los gráficos y se inicializa el pro- 
grama. En el siguiente, obtendrás el 
programa entero con sólo coser las ru- 
tinas entre sí. 

EL JUEGO 

El punto de partida para diseñar un 
juego es, claro está, una idea: una 
trama o un argumento pueden servir 
de base para construir el juego. 

En el que vamos a examinar, 
Freddy es un limpiacristales que tiene 
pánico de las arañas. Ni las consultas 
al médico ni a innumerables especia- 
listas han logrado que supere su fobia. 
Tan grave es ésta, que ahora le da por 
soñar pesadillas sobre una araña mar- 
ciana, enorme, horrible y voraz, o por 
tener sueños con globos y lances con 
el tiro al arco, su deporte favorito. 



A menudo se ha sorprendido su- 
dando a chorros, despierto después de 
haber soñado que estaba acorralado, 
subido a su escalera y armado no de 
su habitual cubo de la limpieza sino 
de un arco y una aljaba repleta de fle- 
chas. Toda su ansia se había concen- 
trado en hacer explotar esos globos te- 
mibles que, si logran llegar hasta la 
jaula de la araña que pende sobre su 
cabeza, está perdido, pues abrirán las 
puertas y liberarán al no menos te- 
mido arácnido. 

O te afanas en ayudar al pobre 
Freddy o su final es tan seguro como 
apetitoso resultará a la araña el desa- 
yuno que imaginas. 

Hasta aquí el argumento o la trama. 
En el marcador se anotarán tantos 
puntos cuantos globos se hayan con- 




seguido explotar. Pero las pesadillas 
no suelen acabar tan fácilmente: la 
tortura del pobre limpiador de venta- 
nas aumenta de grado a medida que 
los globos pasan delante de éi cada vez 
más veloces. Con que falles en la des- 
trucción de tres de éstos, la araña cam- 
pará por sus respetos. 

COMO SE ESCRIBE EL JUEGO 

Son cuatro los objetos que poseen 




movimiento en la pantalla: la araña, 
que se mueve tanto horizontal como 
verticalmente; el globo, que surca el 
espacio y que sólo se mueve vertical- 
mente; Freddy, que también se mueve 
en dirección vertical únicamente, y la 
flecha que éste dispara. La flecha se 
mueve en general horizontalmente, 
pero cuando a Freddy le da por subir 
o bajar por la escalera entonces la fle- 
cha habrá de moverse verticalmente 
junto con nuestro personaje. Sin em- 
bargo, quienes más nos deben preo- 
cupar son la araña y el globo de turno. 



f / 4 y 





Son muchas las variables que se aso- 
cian a estos dos objetos. La técnica 
que mejor se adapta a este caso es al- 
macenar las variables en una tabla uni- 
dimensional, empleando una cons- 
tante para referirnos a una casilla en 
particular. 

En un segundo paso habrás de plan- 
tearte cómo visualizarás estas figuras 
en la pantalla. Lo que equivale a de- 
terminar cuántos dibujos diferentes se 
van a necesitar a lo largo de), juego. 
Todos los grandes juegos para orde- 
nadores incorporan dibujos extrema- 
damente cuidados y de gran colorido, 
lo cual quiere decir que este segundo 
paso no has de tomarlo a la ligera. 
Para bajar a un buen nivel de detalle, 
construiremos la figura de Freddy con 
una ordenación tres por dos de carac- 
teres UDG. Para visualizar la araña 
utilizaremos figuras dos por dos (dis- 
pondremos de dos figuras para que la 
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«ABISMO»: AÑADIENDO 
NUEVAS INSTRUCCIONES 



Después de que ha aparecido en la 
pantalla la primera página con el título 
del programa y cuando el jugador sabe 
ya qué juego se supone que está jugando 
hay que decirle la forma en que lo tiene 
que hacer. 

Nuevamente se utiliza un programa 
en BAvSIC para «pokear» letra a letra 
los datos de las instrucciones en una 
tabla ASCII cuando se ejecute el pro- 
grama. 

10 AD=17312:I = 
15 POKE AD + U 147:1 = 1 + 1 
50 N = 3:G0SUB 2000 
60 POKE AD+ 1 f 31:1-1 + 1 
70 A$ = 'LA HISTORIA 

CUENTA...':IM = 24:G0SUB 

1000 

80 N = 1:G0SUB 2000 

90 A$ = '[ 18*C0MM+T]' 
:N = 18:G0SUB 1000 

1000 N=3:G0SUB 2000 

110 A$=' DESPUES DE UN 
CORTO PASEO, WILLY 
VUELVE ':N = 40:GOSUB 
1000 

120 A$ = 'PARA BUSCAR LAS 
CABRAS QUE HAN 
ESPARCI DO':N=40:GOSUB 
1000 

-1250 A$ = 'LA MERIENDA POR 
LAS ROCAS DEL 
ACANTILADO': N=40: 
GOSUB 1000 
140 A$ = 'WILLY QUIERE 
RECUPERAR SUS 
POSESIONESt 3 
ESPACIOS]':N = 40:GOSUB 
1000 

150 A$ = 'PERDIDAS, PERO 
DEBE LUCHAR CONTRA 
LOS[ 3 ESPACIOS]' 
:N=40:GOSUB 1000 

160 A$ = 'GUIJARROS, LAS 
GRIETAS Y LAS 



SERPIENTES 
• : |M=40:GOSUB 1000 
170 A$ = 'VENENOSAS. POR SI 
FUERA POCO, LA MAREAl 2 
ESPACIQSJ':N=40:GOSUB 
1000 

180 A$ = 'ESTA SUBIENDO Y EL 
NO PUEDE NADAR. [ 6 
ESPACIOS]':N=40:GOSUB 
1000 

190 A$ = '[3 ESPACI0S1PARA 
AYUDAR A WILLY EN ESTA 
AVENTURA ':N = 40:GOSUB 
1000 

200 A$='[ 3 ESPACIOS1LEE LAS 
SIGUIENTES 
INSTRUCCIONES Y[ 3 
ESPACIOST:N-40:GOSUB 
1000 

210 A$ = 'PULSA S PARA JUGAR 
':N = 19:GOSUB 1000 

220 N=3:G0SUB 2000 

230 POKE AD + I,149:I = I + 1 

240 A$ = '[ 2 

ESPACIOSjTECLADO - 
SHIFT[ 3 ESPACIOS]^! 3 
ESPACIOS1MOV. DERECHA! 
4 ESPAC1OS]':N=40:GOSUB 
1000 

250 A$='[ 16 ESPACIOS]z[ 3 

ESPACIOSl=[ 3 

ESPACI0S1SALT0 

VERTICAL. '-.N = 40:GOSUB 

1000 
260 A$ = '[ 12 

ESPACIOS]AMBOS[ 3 

ESPACIOS] = [ 3 

ESPACIOS3SALTO A 

DERECHA. ':N=40:GOSUB 

1000 

270 N = 1:G0SUB 2000 
280 A$ = '[ 2 

ESPACIOS]JOYSTlCK EN 

PORT 21 20 

ESPACIOS]':N = 40:GOSUB 



TEMPLANDO LOS INSTRUMENTOS 



LA ENVOLVENTE 



DEFINICION DEL TONO 



DURACION DE LAS NOTAS 



«MANGAS VERDES» 



1000 
290 POKEAD + 1,0 
300 STOP 

1000 REM *** RUTINA PARA EL 

TEXTO *** 
1010 FOR J=l TO N 
1020 POKE AD+ l,ASC(MID$(A$, 

J,D) 

1030 l = l + l:NEXT :RETURN 
2000 REM *RUTINA PARA 

INSERTAR RETURN* 
2010 FOR J=l TO N:P0KE 

AD + I,13:I = I + 1:NEXT 

: RETURN 
El siguiente programa se encarga de 
extraer los datos y presentarlos en la 
pantalla. 



4060 A9 09 LDA #$09 

4062 8D 20 D0 STA $ D020 

4065 A9 0F - LDA #$0F 

4067 8D 21 D0 STA $D021 

406A A9 A0 LDA #$A0 

406C85FB STA $FB 

406E A9 43 LDA #$43 

4070 85 FC STA $FC 

4072 A0 00 LDY #$00 

4074 EA NOP 

4075 Bl FB LDA {$FB),Y 
4077 F0 0E BEQ$4087 
4079 20 D2 FF JSR $FFD2 
407C EA NOP 
407D E6 FB INC $FB 
407F D0 02 BNE$4083 
4081 E6 FC INC $FC 

4083 18 CLC 

4084 90 EF BCC $4075 

4086 EA NOP 

4087 20 E4 FF JSR $FFE4 
408A C9 53 CMP #$53 
408C D0 F9 BNE 4087 
408E 60 RTS 

Estos dos programas tienen que ser 
ensamblados y almacenados juntos, 

igual que hicimos con los programas 
de !a primera parte de ABISMO. Si 



INPUT 39 



no dispones de un ensamblador, os 
presentamos un programa cargador en 
BASIC para que podáis entrar los da- 
tos. 



10 S = 
20 FOR AD : 



16480 TO 16526 



30 READBY:POKEAD, 

BY:S = S+BY 
40 NEXT 

50 IFS<>7432 THEN 
PRINT'ERROR EN LOS 
DATOS':END 

16480 DATA 169,9,141,32,208, 



169 

16486 DATA 15,141,33,208, 

169,160 
16492 DATA 133,251,169,67, 

133,252 
16498 DATA 160,0,234,177, 

251,240 




v 



MI 

fia 



12 




40 INPUT 
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16504 DATA 14,32,210,255, 

234,230 
16510 DATA 251,208,2,230, 

252,24 

16516 DATA 144,239,234,32, 

228,255 
16522 DATA 201,83,208,249, 

96 

Además de los dos métodos utili- 
zados para suministrar los datos a las 
palabras impresas en la página de pre- 
sentación del juego, el programa en 
BASIC que tenemos ahora utiliza una 
tercera manera de construir la tabla 
ASCII. En esta ocasión se considera a 
las palabras como cadenas de carac- 
teres, pokeando el valor ASCII de 
cada letra en la tabla por medio de la 
subrutina que comienza en la línea 
1000. 

Pero antes que nada tienes que bo- 
rrar la pantalla. Para ello, en la línea 
15 se pokea en la tabla el valor 147, 
que es el valor ASCII correspondiente 
a la tecla ACLR/HOME. A continua- 
ción la línea 50 pone tres retornos de 
carro en la tabla, con fines de forma- 
teo y la línea 60 pokea en la tabla el 
código de la tinta azul. 



La línea 290 pokea un en la última 
posición de la tabla, de forma que el 
programa en código máquina sabe 
cuando llega al final. 

EL PROGRAMA EN LENGUAJE 
ENSAMBLADOR 



En la dirección D020 se almacena el 
número 0, con lo que al borde de 
pantalla se le asigna el color ma- 
rrón. Seguidamente el color de 
pantalla, controlado por la posición 
de memoria D02L se pone a F que 
corresponde al gris. 

La dirección de comienzo de los 
nuevos datos se almacena entonces en 
las direcciones FB y FC de la página 
cero y el registro de índice Y se pone 
a cero. 

LDA ($FB), Y , realiza la carga de 
la tabla de datos a razón de un byte 
cada vez, utilizando direccionamiento 
indirecto. BEQ $4087 fuerza la salida 
de la rutina cuando se carga un cero 
en el acumulador, en otras palabras, 
cuando se llega al final de la tabla el 
procesador pasa a la siguiente parte 
del programa. 

También aquí se utiliza la subrutina 
de ROM que hay en FED2 para que 



aparezca en la pantalla el carácter 
cuyo código ASCII contiene el acu- 
mulador. 

La pequeña rutina que viene a con- 
tinuación incrementa el puntero en FB 
y FC. La instrucción BNE $4083 
fuerza un salto sobre la instrucción 
que incrementa el byte alto del pun- 
tero. El puntero queda incrementado, 
mientras que el registro de índice Y se 
mantiene a cero, debido a que la tabla 
de datos tiene una longitud su- 
perior a los 255 bytes. 
El indicador de acarreo queda en- 
tonces puesto a cero y el procesador 
hace un salto hacia atrás para cargar 
el siguiente byte de la tabla. 

ESPERANDO EL FINAL 

La rutina de ROM que hay en FFE4 
es la rutina GETIN que toma un ca- 
rácter de la cola en el buffer de te- 
clado. El valor ASCII del carácter se 
pasa al acumulador y la instrucción 
CMP #53 compara su valor con el va- 
lor hexadecimal 53; que es el código 
ASCII de la letra 8. 






Sí no se ha pulsado una S y no figura 
este carácter ASCII en el buffer del te- 
clado, la instrucción BNE $4087 envía 
al procesador a este pequeño bucle a 
fin de comprobar el siguiente byte del 
buffer de teclado. 

Pero si, por el contrario, se pulsó 
una S, no se cumple la condición BNE 
y el procesador pasa a la siguiente ru- 
tina (sólo en este caso se produce la 
rotura forzada por la instrucción BRK 
y se detiene debido al RTS). 

TEMPLANDO LOS 
INSTRUMENTOS 

Comenzaremos por preparar una 
melodía antes de que Willy se apre- 
sure a partir hacia la aventura. Sí, en 
INPUT COMMODORE hemos 
suelto a la década de los 60, queremos 
decir a la de 1560, con una tonadilla 
:me nos servirá de motivo musical 
Dará nuestro juego del ABISMO. 

Ningún juego puede considerarse 
:omp!eto mientras no se le incorpore 
ilguna musiquilla agradable. En el 
juego de! ABISMO hemos introdu- 
cido la música de Mangas Verdes 
^"Greensleeves") melodía atribuida al 
:ey Enrique VIII de Inglaterra, que se 
repetirá cada cierto tiempo. 



La rutina que interpreta la melodía 
la hemos puesto aparte de la rutina 
principal, debido a que será llamada 
varias veces desde varias partes dife- 
rentes del programa. Pero mientras 
esperas después de que haya desapa- 
recido la página de presentación, se 
inserta la siguiente cuña: 

10 S = 

20 FOR AD=16473 TO 16478 
30 READBY:POKEAD, 

BY:S-S+BY 
40 NEXT 

50 IFS0668THEN 

PRI NT'ERROR EN LOS 
DATOS': END 

16473 DATA 169,19,32,150,64, 
234 

Y en lenguaje ensamblador; 

4059 A9 13 LDA #$13 
405B 20 96 40 JSR $ 4096 
405E EA NOP 

Esto carga el acumulador con el nú- 
mero 13 hexadecimal, que es 19 en de- 
cimal, ya que hay 19 notas en la frase 
inicial de Mangas Verdes. A continua- 
ción salta a la subrutina que ejecuta la 
melodía, que está en 16534. 



4096 C9 13 CMP #$13 

4098 90 03 BCC $409D 

409A A9 13 LDA #$13 

409C EA NOP 

409D EA NOP 

409E EA NOP 

409F EA NOP 

40A0 85 FB STA $FB 

40A2A0 18 LDY#$18 

40A4 A9 00 LDA #$00 

40A6 99 00 D4 STA $D400,Y 

40A9 88 DEY 

40AA D0 FA BNE $40A6 

40AC EA NOP 

40AD A9 0F LDA #$0F 

40AF 8D 18 D4 STA $D418 

40B2 EA NOP 

40B3 A9 00 LDA #$00 

40B5 8D 05 D4 STA $D405 

40B8 A9 F0 LDA #$F0 

40BA 8D 06 D4 STA $D406 

40BD A0 00 LDY #$00 

40BF B9 60 43 LDA $43G0,Y 

40C2 8D 01 D4 STA $D401 

40C5C8 INY 

40C6 B9 60 43 LDA $4360, Y 

4009 8D 00 D4 STA $D400 

40CCC8 INY 

40CD 84 FC STY $FC 
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40CF A9 00 


LDA #$00 


40D1 AA 


TAX 


40 D2 A8 


TAY 


40 D3 20 DB FF JSR $FFDB 


H-yJUO M¿f rU 


LUY íprO 


a rk pío r~ a 


NOP 


/If/ínQ DO CM yi q 

4^uy Ky bj¿) 4o 


LDA $4360, Y 




1 NY 


A(f\F\Fi Q A 
4¡¿JUU £54 rb 


b 1 Y $FC 


/i M n r oc rn 
4^íUr QD r D 


STA $FD 


¿J-yyti tA 


NOP 


AMro AQ 1 1 

4yyt.¿: rty 1 1 


1 Pt A // i 1 

LDA #|U 


A(ÁFA íín M/l n/i 
< -fyj | C ¿ 4- oU W4 U4 


o 1 A $04^4 


4y>t/ LA 


NOP 


4^Jto Z^J Ub. rr 


i n n CP t — i — r>í i — 

JSR $FFDE 


AíTífr í^r rn 
4)£/Ld Oo rU 


Ulvir $hD 


/i rn Rí7i en 
4yJLU LJyy hy 


BNE $40E8 




INUr 


40F0 A4 FC 


LDY $FC 


40F2 A9 00 


LDA #$00 


40F4 8D 04 D4 


STA $D404 


40F7 EA 


NOP 


40F8 C6 DB 


DEC $FB 


40FA D0 C3 


BNE $40BF 


40FC 8D 18 D4 


STA $D418 


40FF 60 


RTS 



/ Código Máquina 

El cargador en BASIC sería: 




10 S-0 

20 FOR AD=16534 TO 16639 
30 READBY:POKEAD, 

BY:S = S + BY 
40 NEXT 

50 IFS<>16001 THEN PRINT' 

ERROR EN LOS DATOS': END 
16534 DATA 201,19,144,3,169. 
19 

16540 DATA 234,234,234,234, 
133,251 

16546 DATA 160,24,169,0,153 


16552 DATA 212,136,208,250, 

234,169 
16558 DATA 15,141,24,212, 

234,169 
16564 DATA 0,141,5,212,169, 

240 

16570 DATA 141,6,212,160,0, 
185 

16576 DATA 96,67,141,1,212, 
200 

16582 DATA 185,96,67, 

141,0,212 
16588 DATA 200, 132,252, h 



0,170 

16594 DATA 168,32,219,255, 

164,252 
16600 DATA 234,185,96,67, 

200,132 
16606 DATA 252,133,253,234 

169,17 

16612 DATA 141,4,212,234,32 
222 

16618 DATA 255,197,253,208, 

249,234 
16624 DATA 164,252,169,0, 

141,4 

16630 DATA 212,234,198,251, 

208,195 
16636 DATA 141,24,212,96 



LIBRE DE ERRORES 



El primer pequeño módulo 
de este programa está pro 




gido contra una entrada errónea en los 
datos. Cuando se llama a esta rutina 
desde alguna otra parte del programa 
principal, puede ser que se te olvide 
cargar el acumulador adecuadamente. 
Como sólo hay datos suficientes para 
asegurarse de que la rutina no está 
siendo llamada para interpretar más 
notas. Por eso se compara el conte- 
nido del acumulador con 19, 

Pero si el contenido del acumulador 
es superior a 19, no se produce tal 
salto, y el acumulador se carga con el 
valor 19. Esto significa que se puede 
llamar a la rutina para tocar menos de 
19 notas, pero no más. El número 
de notas que hay que interpretar se al- 
macena entonces en FB, de modo que 
se puede utilizar el acumulador para 
inicializar el chip SID. 



Et CHIP «SID» 

El circuito integrado SID 6581 de 
Commodore, del que ya nos hemos 
ocupado en INPUT, controla la sín- 
tesis del sonido y de la música. Las di- 
recciones 54272 a 54296 corresponden 
a dicho chip y cuando vayas a utili- 
zarlo, lo primero que tienes que hacer 
es borrarlas poniendo ceros en sus 24 
direcciones. 

Por ello se carga el valor 24 (18 en 
hexadecimal) en el registro de índice 
Y, cargándose además un en el acu- 
mulador. Después se carga un cero en 
54272 (D400 en hexadecimal), con un 
desplazamiento equivalente al conte- 
nido de Y, lo que da el valor 54296. A 
continuación se decrementa Y regre- 
sando el ordenador hacia atrás. 

La última dirección del SID, la 
54296 (D418) controla el volumen glo- 
bal de la salida del sonido. El máximo 
volumen se obtiene cargando esta úl- 
tima dirección del SID 6851 con el va- 
lor 15. 



LA ENVOLVENTE 

Se Mama envolvente a la forma en 
que varía el volumen de un sonido du- 
rante el tiempo que dura. Ya hemos 
hablado en otros números de INPUT 
de la manera de configurar la envol- 
vente de un sonido. Por ahora, úni- 
camente necesitas recordar que hay 
cuatro parámetros que intervienen: 
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ataque, caída, sostenimiento y sol- 
tado. 

El ataque de una nota caracteriza la 
velocidad a la que alcanza su máximo 
volumen. El volumen medio es lo que 
llamamos su sostenimiento. La velo- 
cidad a la que disminuye su volumen 
a partir del volumen medio es lo que 
hemos llamado «soltar». 

Puedes entender fácilmente el sig- 
nificado de todos estos términos si 
piensas en la forma en que se ejecuta 
una nota tocada en un piano. El ata- 
que está controlado por la fuerza 
con que aprietes la tecla. Si le das 
bruscamente, el ataque es brusco; si la 
golpeas con más suavidad, el ataque 
será más dulce. 

Después del golpe inicial del macillo 
contra ía cuerda, el volumen dismi- 
nuye con bastante rapidez. Pero mien- 
tras mantengas la tecla bajada los apa- 
gadores estarán separados de la 
cuerda y la nota se mantendrá. El so- 
nido se extingue completamente en 
cuanto el apagador reposa de nuevo 
sobre la cuerda al soltar la tecla. 

Los cuatro atributos de ataque, 
caída, sostenimiento y soltado pueden 
adoptar valores cuantificados entre y 
15. El valor del ataque se almacena en 
los cuatro bits de mayor peso de la di- 
rección de memoria D405 y el valor de 



caída en los cuatro bits de menor peso 
de esa misma dirección. Los valo- 
res de sostenimiento y soltado se al- 
macenan respectivamente en los ni- 
veles alto y bajo de la dirección de me- 
moria D406. 

Los valores de ataque, caída y sol- 
tado se ponen a cero, mientras que el 
valor de sostenimiento se fija en 15. 



DEFINIENDO EL TONO 

El tono de los sonidos está contro- 
lado por las direcciones de memoria 
D400 y D401. Los detalles para el 
tono de cada nota de la frase inicial de 
Mangas Verdes están contenidos en la 
tabla de datos que hay en 4360 hexa- 
decimal. 

El registro de índice Y se carga con 
el valor cero y el primer byte de la ta- 
bla de datos se carga sobre el byte alto 
de la dirección de control de tono. A 
continuación se incrementa Y, cargán- 
dose el siguiente byte de datos en el 
byte bajo de la posición de control de 
tono; después se incrementa nueva- 
mente Y. El índice se almacena en- 
tonces en FC. 



LA DURACION DE LAS NOTAS 

También tienes que especificar lo 
que dura cada nota. Pero no hay nin- 
guna dirección en el circuito integrado 
SID que controle dicha duración. Tie- 
nes que ocuparte tú de ello, extin- 
guiendo la nota cuando quieras que 
cese el sonido. 

Para ello, lo primero que tienes que 
hacer es poner a cero el reloj de 
tiempo real. Este reloj está controlado 
por la rutina SETTIM en la ROM 
Kernal. Se carga un cero en el acu- 
mulador y se transfiere a los registros 
X e Y. Estos tres registros tienen que 
estar a cero para inicializar el reloj. El 
procesador salta entonces a SETTIM, 
que empieza en FFDB. La duración 
que debe tener la nota es el tercer pa- 
rámetro de la tabla de datos. Por ello 
se restaura el índice a partir de FC y 
a continuación se carga en el acumu- 
lador el siguiente byte de datos. Se- 
guidamente se incrementa el registro 
de índice Y, almacenándose en FC, 
quedando almacenada la duración de 
la nota en FD. 




Código Máquina 




La dirección de memoria D404 es el 
registro de control del circuito SID y 
cada uno de sus bits controla una fun- 
ción determinada. En este caso se ha 
cargado con un 17 (11 en hexadeci- 
mal), que en binario es 00010001, con 
lo cual están activados los bits cero y 
cuatro. 

El bit cero es la «puerta» (gate), de 
modo que cuando es activado empieza 
a emitir eí sonido. El bit cuatro per- 
mite obtener un sonido con una forma 
triangular, que resulta con una calidad 
suave y aflautada. 

Una vez que ha sido establecido el 
sonido, el procesador salta a la subru- 
tina RDTIM, que está en la ROM 
Kernal, la cual realiza una lectura en 
el reloj de tiempo real. El reloj cuenta 
1/60 de segundo y almacena el tiem- 
po en tres bytes. Pese a lo que dice la 
Guía de Referencia para Programa- 
dores, cuando se lee el tiempo las ci- 
fras menos significativas son devueltas 
en el acumulador, las siguientes en el 
registro X y las más significativas en 
el registro Y. 

Las notas musicales duran un 
tiempo muy corto, por lo que es el 
byte del acumulador el que se com- 
para con el parámetro de duración que 
hay en FD. Si ambos valores no son 
iguales, o, lo que es lo mismo, si el re- 



loj todavía no ha llegado al valor de- 
signado, la instrucción BNE fuerza un 
salto a la instrucción JSR, que impone 
una salida y una nueva lectura del 
tiempo. Pero cuando se alcanza el 
tiempo requerido, no se cumple la 
condición de la instrucción BNE y el 
procesador sigue avanzando. 

De nuevo se restaura el registro de 
índice Y desde FC. Se carga un cero 
en el acumulador y se almacena en la 
dirección D404, que es el registro de 
control del SID. Así se apaga nueva- 
mente el sonido. 

A continuación se decrementa el 
contador de notas que hay en FB y si 
todavía no ha llegado a cero, la ins- 
trucción BNE recorre el bucle para 
ocuparse de la siguiente nota. Si la 
cuenta ya ha llegado a cero, el conte- 
nido del acumulador, que todavía es 
cero, se almacena en D418, con lo cual 
el volumen se pone a cero. En este 
momento el procesador regresa al 
BASIC, ya que acabamos de llegar al 
final de la primera parte de Abismo. 



LOS DATOS 



La anterior rutina de lenguaje en- 
samblador puede utilizarse para eje- 
cutar cualquier melodía, siempre que 
modifiques el valor del contador de 



notas que hay en FB. Puedes cargar la 
forma de la envolvente y el tipo de so- 
nido producido, realizando los opor- 
tunos ajustes de los valores deposita- 
dos en las direcciones D404 D405 v 
D406. 

Pero no se interpretará absoluta- 
mente nada a menos que suministres 
algunos datos. Tampoco aquí vale la 
pena hacerlo en código máquina; el si- 
guiente programa en BASIC pokea 
los datos de Mangas Verdes en una ta- 
bla de datos a la que pueda tener ac- 
ceso el programa en código máquina. 

10 ADD=17248:FORI = 0TO32000 
20 READA%:POKEADD + l f A% 
30 IFA%=0GOTO50 
40 NEXT 
50 END 

17248 DATA 28, 126 f 16,45, 198, 

32,51,97,16,57 
17258 DATA 172,64,61,126,16 

57,172,32,51,97 
17268 DATA 32,43,52, 16,34, 

75,64,38,126,16 
17278 DATA 45,52,32,45,198, 

32,38,126,16,38 
17288 DATA 126,64,34,75,16 

38,126,32,43,52 
17298 DATA 32,36,85,16,28, 
214,32,0 



LISTA DE PREMIADOS EN LA ENCUESTA DE JUNIO 



Primer premio de 25.000 pts. en metálico: 
MANUEL VAZQUEZ RODRIGUEZ. Calahorra (La Ríoja) 

Diez premios de un juego para cada concursante: 



MIGUEL ANGEL VAZQUEZ FERNANDEZ Vigo 
JUAN CARLOS SANTOS MARTIN. Guadalajara 
DAVID J0U SALA. Barcelona 

ADELARD0 MANUEL DORADO CARO. Alcalá de H (Madrid) 
FERNANDO FERNANDEZ ABRIL. Ponferrada (León) 



LUIS CHICHARRO HERNANZ. Madrid 

MANUEL CARLOS PERALTA CAMPO. Lérida 

J0RDI JOAQUIN ESTEVE. Tarragona 

RUBEN GONZALEZ LILL0. Navarra 

MANUEL RACHAD HAJ-SALEH RAMIREZ. Sevilla 
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CUADROS CON GRAFICOS 
DEFINIDOS POR EL USUARIO 



Una vez has definido un juego de fi- 
guras, es muy fácil crear una gran va- 
riedad de cuadros con sólo variar la dis- 
posición de los UDG y cambiar el fondo. 

En el último artículo de la serie se 
indicaba la manera de que pudieses 
superar cualquier límite que tuviera tu 
ordenador en el número de UDG que 
pudieras crear, y cómo puedes definir 
el juego de caracteres. Este artículo es 
el primero de una serie de dos que te 
mostrarán cómo puedes ahorrar una 
gran cantidad de tiempo y de esfuerzo 
utilizando UDG para formar un cua- 
dro en la pantalla. UDG son las siglas 
de User Defined Graphics, que signi- 
fica «gráficos definidos por el usua- 
rio». 



¿POR QUE HAY QUE EMPLEAR 
LOS UDG? 

Supon que deseas crear un cuadro 
de la jungla — quizá una página de tí- 
tulo para un nuevo y emocionante 
juego — . Para ello existen básica- 
mente dos maneras de hacerlo. Po- 
drías dibujar con DRAW cada parte 
del cuadro y colorearlo como desea- 
ses. Pero supon que quisieses un bos- 
que como parte de tu fondo. Tendrías 
que dibujar un tronco y tres copas 
para cada árbol que incluyeses en el 
cuadro, o sea, una tarea realmente te- 
diosa. Y, desde luego, cada uno de es- 
tos troncos y copas serían iguales. En 
cambio, si puedes diseñar uno o varios 
UDG, que se combinen para formar 
un árbol, sólo tendrás que colocar con 
un PRINT las figuras recién creadas. 

Este último procedimiento tiene la 
evidente ventaja de que te ahorra 
la necesidad de especificar cada uno 
de los detalles cada vez que deseas te- 
ner un árbol en la pantalla, además de 
otras ventajas adicionales. 

Una de ellas es que ahorras tiempo. 



Los ordenadores presentan caracteres 
con PRINT mucho más rápidamente 
que con DRAW trazando líneas de 
alta resolución (lo cual también es ver- 
dad si los caracteres son definidos por 
el usuario y muy complicados). Por 
tanto, si almacenas tu cuadro en forma 
de UDG, cuando el ordenador llega a 
la parte de tu programa que presenta 
el cuadro, no tienes que estar aguar- 
dando un largo tiempo mientras el or- 
denador lleva trabajosamente tu obra 
a la pantalla: aparece casi instantánea- 
mente. 



LIBERTAD DE ELECCION 

Otra ventaja es que puedes variar 
fácilmente, y cuando lo desees, el ta- 
maño del objeto. Con el ejemplo an- 
terior puede variar la altura del árbol 
simplemente añadiendo o quitando 
uno o más UDG del «tronco», o al- 
terar su follaje empleando una com- 
binación distinta de UDG de «hoja». 
Naturalmente, esto también puedes 
hacerlo con los comandos de alta re- 
solución de tu ordenador, pero los 
UDG son mucho más cómodos. Para 
empezar, tratas con los números mu- 
cho más manejables de la pantalla de 
baja resolución. 

Una vez has definido los UDG para 
tu cuadro, permanecen en la memoria 
(a menos que los cambies), aunque no 
son necesaria ni permanentemente ac- 
cesibles desde el teclado; si tienes va- 
rios bancos o juegos de caracteres al 
mismo tiempo en la memoria, tendrás 
que «activar» el banco que debe ser 
accesible desde el teclado. Para esto 
bastará simplemente con variar el 
puntero de los UDG. 

Esto significa que podrás utilizar las 
figuras que has diseñado tantas veces 
como desees en tus programas: el 
único límite es la memoria del orde- 
nador. En consecuencia, en tu pro- 
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DE LA JUNGLA 




QUE UTILIZAR LOS UDG 


■ 


UN COCODRILO, UN ELEFANTE 


■ 


FORMACION DE UN CUADRO 




Y ARBOLES 




CON VARIOS CARACTERES 


■ 


DIBUJO DEL FONDO 


■ 


REALIZACION DE UN CUADRO 


■ 


ALTA Y BAJA RESOLUCION 





grama resultará tan fácil tener un cua- 
dro de bosque como un solo árbol. 

No obstante, el empleo de los UDG 
tiene algunos pequeños inconvenien- 
tes. Para empezar, tienes que definir 
todas las figuras y teclear los datos en 
el ordenador, aunque, normalmente, 
esto no es peor que trabajar con grá- 
ficos de alta resolución. Pero también 
hay que utilizar una parte de la limi- 
tada memoria de tu ordenador para al- 
macenar los UDG y 7 a menos que seas 
muy cuidadoso, acabarás por almace- 
narlos dos veces. En el segundo ar- 
tículo de esta serie se indica cómo pue- 
des evitar esta repetición de memoria. 

¿QUE IMAGENES EMPLEAN LOS 
UDG? 

Por las razones expuestas anterior- 
mente, hay una serie de imágenes que 
puedes dibujar de manera mucho más 
eficiente con UDG que otras. 

Gomo regla general práctica, si el 
cuadro tiene un número relativamente 
pequeño de objetos macizos en partes 
que aparecen con una forma similar 
varias veces, o si deseas emplear una 
imagen varias veces durante la ejecu- 
ción de un programa, podrás ahorrar 
tiempo y esfuerzo utilizando los 
UDG. 

Pero si quieres tener un cuadro muy 
detallado que sólo vas a emplear una 
vez en el programa, probablemente 
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será mejor que utilices los comandos 
de alta resolución del ordenador. 

Por ejemplo, si el cuadro debe tener 
como telón de fondo una pared de la- 
drillos, la podrás formar rápidamente 
empleando sencillamente uno o dos 
UDG que presentarás con PRINT re- 
petidamente en la parte del cuadro en 
la que desees que aparezca la pared. 
Una alternativa podría ser dibujar una 
serie de líneas en una zona coloreada 
para simular las juntas de los ladrillos. 

Otro ejemplo sería el cuadro de la 
jungla mencionado anteriormente. Ya 
se ha indicado que puedes ahorrar 
tiempo definiendo los UDG para los 
árboles que debe contener cualquier 
escenario de jungla. Los animales que 
deben acompañar a los árboles tam- 
bién son muy adecuados para ser de- 
finidos con UDG, puesto que así po- 
drás emplearlos en cualquier punto 
del programa, para animarlos, o para 
disponer de un gran número de los 
mismos. 



UN CUADRO DE LA JUNGLA 

A continuación se presenta un pro- 
grama que sirve para definir los carac- 
teres típicos que probablemente de- 
searás incluir en la escena de la jungla. 

10 POKE 52,48:P0KE 56, 

48:CLR 
20 POKE 56334, 0:POKE 

1,35 

30 FOR Z=0 TO 1024:POKE 
12288+Z,PEEK(53248 + Z): 
NEXT Z 

40 POKE 1,39:P0KE 56334, 
1 

50 FOR Z=0 TO 143:READ 
X:POKE 13312+Z,X: 
NEXT Z 

52 FOR Z = 760 TO 983:READ 
X:POKE 13312 + Z,X : 
NEXT 1 

55 C$ = CHR$(13J:P0KE 53272, 
28:P0KE 53281, 0:POKE 
53280,6 

60 PRINT 

"[SHIFT+CLR/HOME]":FOR 

:=: 'o 30:X=int 

(RND(1)*320) 
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/ Programación / 



70 POKE 1024+X,46:POKE 

55296+X,RND(l)*6 + 2:NEXT 
Z 

80 T$ = "[CTRL + 9][CTRL+6][C 
0MM + D][COMM + Z][CRS 
R ABAJO][ 2*CRSR IZQDA. 
][COMM + S][COMM + @][CR 
SR ABAJO][ 2*CRSR IZQD 
A.][COMM+A][COMM + E][C 
RSR ABAJOHCRSR IZQDA.] 
[CTRL + 5][COMM + R]":C(0) 
= 3 

85 TT$ = "[CTRL+4][CTRL + 9][ 
COMM+W][COMM + G][COM 
M + H][COMM + L][CTRL + 3][ 
CRSR ABAJOK 3*CRSR IZ 
QDA.][COMM + Y][COMM + U] 
[CRSR ABAJOK 2*CRSR IZ 
QDA.][COMM + 0][CRSR AB 
AJOJÍCRSR IZQDA. ][SHIFT 
+ @]":C(1)=6 

87 PRINT "[CLR/HOME][ 
7*CRSR 

ABAJ0][CTRL+6]":F0R 1=1 
TO 280;PRINT "[COMM+T]"; 
:NEXT 

90 PRINT "[CLR/HOME][ 6*CR 
SR ABAJ0]"TAB(13)TT$" 
[ 4*CRSR ARRI BA][ 2*CRS 
R DCHA.]"T$"[ 2*CRSR A 
RRIBA][CRSR DCHA.]"T$TT 
$ 

95 PRINT "[CLR/HOME][ 4*CR 
SR ABAJO]"TAB(30)T$"[ 2 
*CRSR ARR!BA]"T$"[ 2*C 
RSR ARRIBA]" 

T$TT$ 

96 PRINT "[CLR/HOME][ 9*CR 
SR ABAJO][CTRL + 5]"SPC( 
30)"[CTRL + 9][COMM+ *]" 
CHR$(160)"[COMM + K][CO 
MM + I][CRSR ABAJO][ 4*C 
RSR IZQDA. ][CTRL + 9][CO 
M M + T][COM M + @][COMM + 
GHCOMM + +][COMM + M][ 
CRSR ABAJO][ 5*CRSR IZ 
QDA.][CTRL + 9][CRSR DCH 
A.][COMM + £][SHIFT+£][C 
OMM + N][COMM + 

Q]" 

150 FOR 1=0 TO 159:POKE 
1864 + Z,102;POKE 



56136+Z,C(RND(1)*2): 
NEXTZ 
160 PRINT "[CLR/HOME][ 
20*CRSR ABAJO]"TAB 
(28); 

162 IF RND(1)>.50 THENPRI 
NT "[CTRL+9][CTRL + 8]@ 
ABCDEFGHIJK";SPC{28) ; " 
[CTRL + 9]LIVlNO000OP00 
O[CTRL + 0]" ; -GOTO 
170 

164 PRINT "[CTRL + 8][ 12 ES 
PACIOS]";SPC(28);"[CTRL 
+ 9]@ABCDEFGH!JK[CTRL 
+0]"; 

170 FOR D=l TO 200:NEXT 
D 

190 GOTO 160 

Si introduces y haces correr el pro- 
grama en el ordenador, podrás ver la 
clase de cuadro que podrás crear con 
UDG. No te preocupes si la mitad su- 
perior de la pantalla aparece algo va- 
cía en este momento, ya que en el pró- 
ximo artículo de esta serie se termi- 
nará el cuadro. 



VERSATILIDAD DE LOS UDG 

Podrás comprobar la versatilidad de 
los UDG observando el agua que hay 
debajo del cocodrilo. En realidad es 
un solo UDG que se repite en toda la 
zona del agua. 

También podrás observar que el 
cuadro no sólo contiene UDG, sino 
también algunas líneas de alta resolu- 
ción que dan la impresión de que en 
el cuadro también hay colinas. 

En este ejemplo puedes comprobar 
que si bien los UDG tienen muchas 
ventajas con respecto a los comandos 
de alta resolución, a menudo podrás 
obtener muy buenos resultados em- 
pleando ambos procedimientos en el 
mismo cuadro. 

En el siguiente artículo de esta serie 
se añadirán más cosas al cuadro. Por 
tanto, salva esta parte en la cinta para 
evitar tener que escribirlo otra vez. 



COMO FUNCIONA EL PROGRAMA 

El programa se ha dividido en dos 
partes. En la primera parte se definen 
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todos los caracteres y, en la segunda, 
los UDG se presentan en las posicio- 
nes adecuadas. 

El programa empieza con varios 
POKE para leer el juego de caracteres 
de la ROM e introducirlo en un área 
protegida de la RAM. 

Después continúa introduciendo los 
datos de cada uno de los caracteres de- 
finidos por el usuario en la RAM, con 
lo que ya puedes utilizar los caracte- 
res. Esta operación termina en la línea 
52. 

La línea 55 establece que la variable 
C$ sea igual a CHR$(13), que es un 
RETURN. Esto se hace para mover la 
posición de PRINT a la siguiente línea 
de la pantalla durante la presentación 
efectiva del cuadro. La línea también 
establece el modo y los colores del 
fondo y del marco con tres POKE. 

La pantalla se borra en la línea 60, 



y el ordenador prosigue iniciando la 
presentación del cuadro. En primer 
lugar presenta aleatoriamente una se- 
rie de estrellas, puesto que el cuadro 
representado es «La jungla de noche». 
Estas estrellas son simplemente pun- 
tos presentados en colores elegidos 
aleatoriamente mediante el bucle 




FOR...NEXT de las líneas 60 y 70. 

Seguidamente, el programa pre- 
senta los UDG en las posiciones de- 
terminadas por los caracteres de po- 
sicionamiento de cursor que pueden 
verse en cada sentencia PRINT. 

Los UDG de los árboles son los que 
se presentan en primer lugar y, para 
mayor facilidad, los caracteres que los 
forman se asignan a dos variables de 
cadena, T$ y TT$. Entonces, las líneas 
90 y 95 imprimen las dos cadenas. 

La línea 87 añade algo más de 
fondo, que son las líneas horizontales 
que puedes ver al ejecutar el pro- 
grama. El otro animal estático, el ele- 
fante, lo presenta la línea 96. 

El cocodrilo se presenta mediante 
una rutina algo más compleja para que 
se mueva hacia arriba y hacia abajo en 
el agua. Esta rutina ocupa las líneas 
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160 y 190, y simplemente imprime una 
línea de espacios encima de la parte 
inferior del cocodrilo si el número ele- 
gido aleatoriamente por La línea 162 es 
mayor que 0.5. 

SÍ no te gusta que el cocodrilo se 
mueva, puedes dejarlo quieto cam- 
biando la línea 190 a: 
190 GOTO 190 



UNA MANADA DE ELEFANTES 

Es posible que prefieras sustituir el 
elefante único que se presenta en este 
momento por toda una manada. Esto 
podrás hacerlo de manera parecida 
al método empleado para presentar 
varios árboles: con un bucle 
FOR...NEXT o con varios GOSUB. 
En la siguiente parte de este artículo 
se verá cómo puedes añadir más fi- 
guras a la escena, así como aplicar al- 
guna animación a la misma. 



1300 REM COCODRILO 

1310 DATA 0,0,1,7,15,15,9,5,0 1390 
,0,128,192,248,255,12 
7,95,1,3,6,12 

1320 DATA 62,255,255,255, 

192,224,176,159,191,2 1780 
55,255,255 1790 

1330 DATA 0,0,0,0,0,248,252, 
255,0,0,0,0,0,0,1,207,0 
,0,0,1,15,127,255,255 

1340 DATA 0,3,63,255,255, 1800 
255,255,255,127,255,2 
55,255,255,254,249,24 1810 
7,248 

1350 DATA 255,255,255,255, 

15,255,255 
1360 DATA 0,224,254,255,255, 1820 
255,255,255,0,0,0,192, 
248,255,255,255,0,2,4, 
7,7 1830 
1370 DATA 3,0,0,21,1,164,73, 

255,255,0,0 
1380 DATA 255,127,63,63,255, 1840 
255,127,31,255,255,25 




5,255,255,255,255,255 
DATA 239,239,239,239, 
239,247,247,247,60,25 
5,255,255,255,255,255 
,255 

REM ELEFANTE 

DATA 0,0,0,8,28,25,51, 

51,0,0,0,126,255,193,2 

53,253,0,0,0,0,0,255,2 

55 

DATA 255,0,0,0,0,0,248, 
252,254 

DATA 102,111,111,111,1 
25,57,26,0,253,251,25 
1,251,231,31,15,15,25 
5,255 

DATA 255,255,255,255, 

255,255,254,255,255,2 

55,255,255,255,255 

DATA 0,0,128,64,32,16,1 

2,0,15,15,15,14,14,14, 

14,31,255,240,224,224 

DATA 224,224,224,224,2 

55,63,59,59,57,57,121, 

248 

DATA 0,0,128,192,224, 

224,128,0 

REM ARBOL 1 

DATA 0,0,0,0,1,1,3,7,0,0 

,0,0,224,240,248,248,1 

5,63,63,63,31,15,3,3 

DATA 252,254,254,254, 

254,254,252,252 

DATA 3,3,3,3,3,1,0,0,248 

,248,248,248,248,248, 

240,96,96,96,96,96,96, 

96 

DATA 96,96 

REM ARBOL 2 

DATA 0,3,15,31,127,127, 

63,1,7,15,255,255,255, 

255,255,255,15,63,255 

,255 

DATA 255,255,255,255,0 

,128,248,248,248,248, 

240,224 

DATA 255,227,96,48,24, 
25,13,15,252,240,96,9 
6,192,192,128,128,7,7, 
7,7,7 

DATA 7,7,7,7,7,7,15,15, 
15,31,63 
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BUSQUEDA DE ANOMALIAS 

Deberás tener mucho cuidado al in- 
troducir los datos, puesto que es ine- 
vitable que haya una gran cantidad, 

— Si tu ordenador se detiene al ha- 
cer correr el programa con un mensaje 
de error OUT OF DATA, significa 
que en el programa no hay suficientes 
datos, 

—Si has indicado al ordenador que 
lea la cantidad correcta de datos, 
puede haber dos posibles razones para 
ello: puedes haber olvidado uno o más 
números o puedes haber introducido 
puntos en lugar de comas. Un punto 
en lugar de una coma cambia dos nú- 
meros en uno, puesto que el punto se 
interpreta como un punto decimal. 

— La única solución para estos dos 
problemas es comprobar, y volver a 
comprobar, los datos hasta que en- 
cuentres el error. Resulta de mucha 



ayuda incluir un comando PRINT en 
el bucle que introduce los datos, con 
el que el ordenador presenta cada nú- 
mero al introducirlo. De esta manera 
podrás comprobar cada número a me- 
dida que se introduce. 

— Si has introducido demasiados da- 
tos, o la cantidad correcta pero erró- 



neos, el programa correrá sin ninguna 
dificultad, pero verás una serie muy 
extraña de imágenes: por ejemplo, el 
cocodrilo podrá tener una trompa o el 
elefante podrá parecerse a una copa 
de árbol. Como antes, la única solu- 
ción consiste en comprobar todos los 
datos introducidos. 



NO OLVIDES EL TELEFONO... © 

Cuando, por cualquier motivo, nos escribas, no 
olvides indicar tu número de teléfono. Así nos será más 
fácil y rápido ponernos en contacto contigo. Gracias. 



Bailen, 92-94, 
esquina Aragón. 
Metro Verdaguer 
08090 Barcelona 




Aprovéchate de nuestras ventajas. 

- Presentación de novedades y juegos de importación. 

- Hazte socio de nuestro club de videojuegos y disfruta de nuestros 
descuentos. 

- Ven a nuestra super boutique a probar tus juegos favoritos. 

- Participa en nuestros concursos mensuales. 

- Asómbrate de nuestros precios: los mejores del mercado. 



La primera tienda de videojuegos para ordenador en Barcelona. 
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PROGRAMA MULTIGESTION 

A continuación publicamos la segunda parte del Programa Multi gestión que, por razones de espacio, no 

se publicó completo en el número anterior de INPUT. 

1035 PRINT MID$(V$ I A f l) ; "[CRSR ABAJO]"; 
1040 NEXTA 

1045 PRINT "[CLR/HOME] [ 23*CRSR ABAJ0]" ; H$ 
1050 FOR A=l TO 15 
1055 X = A*2 

1060 IF D(A)=)0 THEN1080 
1065 FOR Y=0 TO D(A) 

1070 POKE 1906 + X-40*Y,160:POKE 56177 + X-40*Y,A 

1075 POKE 1906 + X-40*Y,160:POKE 56177 + X-40*YA-NEXT Y 

1080 NEXTA 

1085 GET KK$: IF KK$ = " "THEN1085 
1090 IF KK$ = "S" THEN550 
1095 IF KK$="0" THEN950 

1100 IF NOT KK$ = "F" OR NOT KK$="0" THEN1085 
1105 REM ***** ? HORA ? ****** 
1110 TI$ = "000000":FOR J=l TO 1000 

1115 INPUT "f 4 ESPACIOS] [SHIFT+HJORA [ 2 ESPACIOS] (000000) = >"-TI$ 
1120 IF LEN(TI$)<>6 THEN445 
1125 GOTO 445 

1130 REM ***** PRESENTACION HORA ***** 

1135 PRINT "[CTRL+6][CLR/H0ME][ 22*CRSR ABAJO]f 40*C0MM +@]" ; 



m 
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1140 PRINT "[SH1FT+H] => ";TI$ 

1145 FOR PR = TO 1000 

1150 NEXT PR:GOTO 550 

1155 REM ***** GUIA TELEFONICA ***** 

1160 PRINT "[SHIFT+CLR/HOMEJI 10*CRSR ABAJO][ 9*CRSR DCHA.]"; 

1165 PRINT "ICTRL+6][SHIFT+L]ISTIN TELEFONICO":FOR A = TO 900:NEXT A 

1170 PRINT "[SH I FT+CLR/HOME]" 

1175 PRINT TAB(5);"[SHIFT+0]PC10NES":PRINT TAB(15);" = = = = = = = = ":PRINT "[ 2*CRSR ABAJO]" 

1180 PRINT "[SHIFT+E]NTRAR NUEVO NUMERO TELEFONICO = = = = = = > 1" 

1185 PRINT "[SH IFT+B]ORRAR NUMERO TELEFONICOt 7 ESPACIOS] ======> 2" 

1190 PRINT "[SHIFT+B1USCAR UN NUMERO EN EL ARCHIVO = = = = = = > 3" 

1195 PRINT "[SHIFT+C]ARGAR EL ARCHIVOt 14 ESPACIOS] = = = = = = > 4" 

1200 PRINT "[SH IFT+S]ALVAR EL DIRECTORIO [ 11 ESPACIOS] 5" 

1205 PRINT "[SHIFT+L]ISTAR TODOS LOS NUMEROS[ 7 ESPACIOS] ======> 6" 

1210 PRINT "[SHIFT + M]ENU PRINCIPAL! 17 ESPACIOS] = = = = = = > 7" 

1215 PRINT "[ 2 * CRSR ABAJO][ 40*C0MM + @]"; 

1220 PRINT "[ 8 ESPACIOS][SHIFT+P]ULSE LA OPCION DESEADA" 

1225 GET K$:IF K$ = " " THEN 1225 

1230 IF K$<"1" OR K$>"7" THEN 1225 

1235 PRINT "[SHIFT + CLR/H0ME]":0NVAL(K$)G0SUB1245, 1285, 1325,1530, 1440,1380,550 
1240 PRINT "[SHIFT+CLR/HOME]":GOTO 1170 
1245 P = 0:F=-1 

1250 IFT$(P r 0) = " " THENF=P:P=100 
1255 P-P+l 

1260 IF P<> 101 THEN 1250 
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1265 IF F=-l THENPRINT "[SHIFT+M]EMORIA [SHIFT+L]LENA":FOR P=0 TO 900:NEXT:RETURN 
1270 OPEN 1,0,0:PRINT "[SHIFT+NJOMBRE => ";:INPUT#1,T$(F,0):PRINT 
1275 PRINT "[SHIFT+NJUMERO => ";:INPUT#1,T$(F,1):PRINT :CLOSE 1 
1280 RETURN 

1285 OPEN 1,0,0:PRINT "[SHIFT+NJOMBRE A BORRAR";:INPUT#l,D$:PRINT -GLOSE 1 

1290 S--1 

1295 FOR X=0 TO 100 

1300 IFT$(X f 0) = D$THENS=X 

1305 NEXTX 

1310 IF S -1 THENPRINT "[SHIFT+NJO HE ENCONTRADO ESE NOMBRE":GOTO 1285 
1315 T$(S F 0) = "":T$(S,1) = " " 
1320 RETURN 

1325 OPEN 1,0,0:PRINT "[SHIFT+NJOMBRE ";: INPUT#l,N$:CLOSE LPRINT 

1330 S=-Í 

1335 FOR X=0 TO 100 

1340 IFT$(X,0) = N#THENS=X 

1345 NEXTX 

1350 IF S = -l THENPRfNT "[SHIFT+NJO HE ENCONTRADO ESE NOMBRE":GOTO 1325 
1355 PRINT "[SHIFT+NJOMBRE ";T$(S,0) 
1360 PRINT "[SHIFT+NJUMERO " ; T$(S,D 

1365 PRINT .PRINT :PRINT "[SHIFT+PJRESIONE CUALQUIER TECLA" 
1370 GETK$:IFK$ = " " THEN1370 
1375 RETURN 

1380 INPUT "[SHIFT+CJOPIA A IMPRESORA";P$ 

1385 IF LEFT$(P$ 1 1) = "S" THENOPEN 4 f 4,7:CMD 4 

1390 FOR P=0 TO 100 

1395 GET K$:!F K$ = "H" THEN1395 

1400 |FT$(P,0)=" " THEN1420 

1405 PRINT :PRINT T$<P,0) 

1410 PRINT T$(P, 1):PRINT 

1420 NEXT P 

1425 PRINT :PRINT "[ 8 ESPACIOS][SHIFT+P]RESIONE CUALQUIER TECLA" 
1430 GETK$:IFK$ = " "THEN1430 
1435 RETURN 

1440 REM ***** 'SAVE' PROGRAMAS ***** 
1445 OPEN 1,1,1,'TECOM C64" 
1450 FOR F=0 TO 100 

1455 FOR E=0 TO 8:1 F C$(F,E)" " THENC$(F,E) = "-" 
1460 PRINT#1 ( C$(F,E) 
1465 NEXT E:NEXT F 
1470 FOR A=0 TO 100 

1475 FOR B=0 TO 4:ÍFS$(A,B) = " " THENS$(A,B) = "-" 
1480 PRINT#1,S$(A,B) 
1485 NEXT B:NEXT A 
1490 FOR X=0 TO 100 

1495 FOR Y=0 TO l.-IF T$(X,Y) = " " THENT$(X I YJ = " — " 

1500 PRINTZ#l,CO:FOR Z=l TO CO;FOR 22=1 TO 4:PRINT#1,D$(ZZ Z) 

1505 NEXTZZ,Z 

1510 PRINT#1,T$(X,Y) 
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BALONCESTO 

Esta vez en directo desde 
SUNNYVALE (la sede en Estados 
Unidos de EPYX) nos llegan 
muestras de lo que serán sus dos 
próximos bombazos: el STREET 
SPORTS BASKETBALL (en 
castellano, «baloncesto») y 
SUBBATTLE, una auténtica batalla 
submarina que entusiasmará a todos 
los amantes de juegos de estrategia. 
En el caso del baloncesto las fotos 
que te ofrecemos son reveladoras: te 
verás transformado de golpe en una 
especie de HARLEM GLOBE 
TROTTER, ya que en todo 
momento el juego se desarrollará en 
pistas callejeras. Deberás elegir tres 
componentes de tu equipo y sobre 
todo uno de los magníficos campos 
callejeros de los alrededores... Ojo, 
porque cada campo tiene 
características diferentes. Corres el 
riesgo de hacerte graves lesiones en . 
una de ellas, en la que una enorme 
mancha de aceite está debajo de la 
canasta. También deberás cuidar de- 
que los pases que hagas no den 
contra el bordillo... Como era de 
esperar de EPYX, la biblioteca de 



jugadores es muy amplia y cada uno 
está dotado de habilidades diferentes 
en el juego. El realismo alcanza 
como siempre cotas más altas. Por 
ejemplo, si el partido es bueno, un 
gato aparecerá en una ventana y 
mirará el transcurrir de la prueba; 
pero, si baja el nivel, puede que 
empiece a bostezar o incluso que se 
baje de la ventana para ir a otras 
ocupaciones... impresionante. 



SUBBATTLE 

En cuanto a la otra novedad, se trata 
de una fabulosa simulación de juego 
de submarino que te trasladará hasta 
la segunda guerra mundial... Los 
pocos que lo han visto aseguran que 
rompe con todo lo establecido en lo 
que a simulación se refiere. 



PHM PEGASUS 

Parece que Lucasfilm ha decidido 
dejar de estar con EPYX, o por lo 
menos eso es lo que parece tras la 
aparición del último título — PHM 
Pegasus el destructor — que esta vez 
se ha hecho en colaboración con 
Electronic Arts. Se trata de una 
simulación de guerra marina que se 
desarrolla en la segunda guerra 
mundial y tiene por escenario el 
mundo entero: desde el 
apresamiento y destrucción de una 
nave de piratas de los mares del sur 
hasta la captura de un submarino en 
aguas de Filipinas. 
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DEPORTE DE REYES 

Nadie parece haberse enterado de 
que el deporte de los reyes tiene ya 
un juego de ordenadores domésticos: 
se trata de la última novedad de 
Masterlronic: un juego de carreras 
de caballos en la que podrás realizar 
las apuestas tan elevadas como jamás 
hayas soñado. Ei juego es de lo más 
completo e incluye desde un hook de 
referencia de los caballos —en la que 
aparecen incluidos con todo el 
historial — hasta un ayudante de 
apuestas que te llevará al paddock a 
ver ios animales antes de las carreras 
y te asesorará sobre la 
transcendencia del handicap de 12 
kilos que le hayan dado al caballo 
que elegiste ganador o colocado. El 
juego incorpora también una serie de 
comandos que te permitirán crear tu 
propia base de datos. 



FEUD 

La acción transcurre por tierras 
medievales en el siglo xv, cuando 
aún imperaban los magos, brufas y 
otros seres paranormales. .. un buen 
monje se dedica a vagar por tierras 
inglesas en busca de un manuscrito 
que le dará la clave de un tesoro que 
le hará inmensamente rico. El juego 
está lleno de colorido, las tierras 
están plagadas de brujas, magos y 
otros seres, los paisajes están muy 
diversificados y el juego está dotado 
de un sorprendente realismo gracias 




8D33V ES 
IHOT SOV 

fiEUDLUEH 
ICDLEV 
•OB H ERO 
•8RILLI6 

STOP HRT 



a la elección de los colores. 
Dicho realismo alcanza incluso la 
sofisticación de respetar el corte de 
los trajes de aquella época. 

KRACKOUT 

Este juego es el preferido por 
nuestra Redacción este mes, se trata 
de un plagio del Arkanoid (o 
viceversa), pero está dotado de 
elementos que lo hacen resaltar 
considerablemente frente a este 
último: velocidad de las bolas; 
multitud de efectos; rotación de 
fases; gráficos; opción de juego para 
zurdo y diestro; sonido; scrolling 
transparente y además todos los 
elementos que tanto nos gustaron de 
Arkanoid: Los ladrillos desprenden 
extraños objetos y van cambiando el 
juego... sin duda llegará a ser un 
clásico en su género. 




INPUT 57 



EXPRESS RAIDER 

• ERBE ■ AVENTURA DEL OESTE 

Los vaqueros eran aún más duros de 
lo que parece en las películas y, si 
no, ver lo difícil que es rescatar a las 
personas que se hallan en este tren. 
Deberás hacerte con el control del 
tren andando por el techo de los 
vagones. Verás cómo, enseguida, los 
techos se llenan de gente con cara de 
pocos amigos que te atizarán a la 
primera de cambio. Pero los peligros 
también vienen de los aires: 
numerosas aves pueden abatirse 
sobre ti causándote daños que harán 
bajar vertiginosamente tu indicador 
de fuerza. Otro de los peligros a los 
que deberás enfrentarte es la 
-existencia de vallas colgadas en el 
camino recorrido por el tren: 
cualquier impacto con una de ellas te 
hará perder una vida sin ningún 
problema. La verdad es que la 
naturaleza ha dotado a nuestro héroe 
de singulares habilidades en la lucha: 
saltos a izquierda y derecha, que 
harían ponerse rojo de envidia a 
BRUCE LEE; tiros que no 
desmerecerían de los de JOHN 
WAYNE en la recordada película La 
diligencia, de John Ford, o los de 
Alan Ladd encarnando al mítico 
Shane en Raíces profundas, de 
George Stevens, y enfrentándose al 
siniestro Jack Palance. 




Y, por supuesto, no debemos dejar 
de mencionar las patadas, que 
parecen de caballo... 



Desde luego el LEJANO OESTE 
era para gente realmente dura, y los 
alfeñiques no tenían nada que hacer 
allí. 



■iSC : 



1188 



TIME W ! 



TIME 




W JO SELECT 
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ALIEIMS 

• PROINSA ■ JUEGO DE SALAS 

Muchos han visto la primera 
película, titulada ALIEN (sin la letra 
S). La tripulación de la nave 
NOSTROMO está siendo diezmada 
por un bichejo con mala cara y 
mucho apetito que se acaba 
merendando a toda la tripulación, 
menos a una chica, RILEY 
(encarnada por ta bella actriz 
norteamericana Sigourney Weaver en 
la versión cinematográfica). 
La acción de ALIENS (EL 
REGRESO) se sitúa unos años más 
tarde. Llaman a RILEY para 
investigar un rumor que llega a la 
Tierra. Al parecer, centenares de 
bichos, como los que ella describió al 
volver de su periplo, han tomado 
una base en el espacio exterior. No 
vamos a contaros el estado en el que 
se halla el lugar: estos marranos lo 
han llenado de excrementos. Lo que 
sí podemos deciros es que son 
muchos, muy rápidos y muy listos. 
Debes destruir sus excrementos 
porque si no te cerrarán el paso de 
las puertas. 

Mientras tú no puedes pasar por 
todas las puertas, ellos en cambio no 
tienen ese problema y a veces parece 
que son auténticos fantasmas por el 
modo de aparecer. Los alienígenas 
utilizan un curioso método para 
quitarte de en medio: la 
impregnación. Así, mientras uno te 
despista, el otro te impregna (verás 
el color de tu indicador cambiar 
hasta el rojo, que es igual a decir 
;ADIOS!). Como siempre, el equipo 
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del que dispones es reducido, pero 
también debes saber que en las 
tareas de grupo lo que más importa 
es el elemento humano. Tienes un 
equipo de seis personas: Riley, que 
ya ha demostrado su temple; 
HICKS, quizás el mejor elemento 
del equipo (nervios de acero, rápido 
de decisión, lúcido como pocos...). 
El contrario de HICKS es 
GORMAN, el teniente, para el que 
ésta es ta primera misión. También 
tenemos a VAZQUEZ, el soldado 
con mente fría y calculadora; por 
último, BISHOP, el oficial androide 
(no creáis ni por un momento que 
por ser androide no van a tratar de 
merendárselo los ALIENS). Para 
llevar a cabo la misión todos los 
miembros del equipo llevan el 
Mobile Tactical Operation Bay. 
Como es evidente, juegas a la vez 



con los seis personajes; en el MTOB 
verás representado el rostro del 
miembro de la tripulación con el que 
te halles; la habitación en la que está 
cada miembro, el estado físico (la 
longitud de la barra) y el psicológico 
o de impregnación (eí color de la 
barra). Como los ALIENS entran y 
salen como Pedro por su casa, una 
alarma te indicará si en la habitación 
en la que estás hay o no ALIENS. 
El juego viene acompañado de un 
mapa sin numerar. : 
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ARKANOID 

• IMAGINE ■ JUEGO DE MUROS 

Hasta que aparece la típica pantalla 
de presentación de una nave es 
probable que todos penséis que se 
trata de un juego de marcianos más. 
En cuanto deis a la barra 
espaciado™ veréis que esto no es 
verdad, pues se trata de un nuevo 
universo en el que os va a ser muy 
difícil llegar a la última pantalla. 
Arkanoid es otro tipo de clásicos: los 
de MUROS y BOLAS. Se trata 
básicamente de destruir barreras de 
ladrillos con una pala y una bola. 
Realmente el juego puede parecer 
soso hasta aquí: no os fiéis 
demasiado, ya que incluye una serie 
de variantes que aumentan 
notablemente su adictividad y lo 
hacen sólo apto para los virtuosos de 
la palanca. Conforme vayas 
destruyendo barreras verás como a 
menudo salen objetos de los tugares 
que ocupaban los ladrillos: el color 
de los objetos es lo que determina lo 
que va a suceder cuando te acerques 
a ellos. 

Puede que temporalmente te halles 
inmovilizado y por tanto veas cómo 
tu escurridiza bola desaparece por el 
fondo, para quitarte una vida más, o 
bien que tu raqueta se duplica de 
tamaño, o también que se convierte 



en pegajosa, haciendo que las bolas 
se te queden pegadas y 
permitiéndote más fácilmente 
apuntar para destruir zonas difíciles. 
En la parte superior de la pantalla 
verás también cómo aparecen unas 
extrañas naves que, a menudo, 
vendrán a romper los planes que 
hagas acerca de la trayectoria de las 
bolas, ya que la colisión de la bola 
con las naves cambia por completo la 
orientación de la pelota. 
El juego permite todos los efectos 




posibles y te recomendamos mucho 
que uses y abuses de ellos ya que, a 
menudo, al hacer incidir (a bola en 
diagonal lograrás destruir dos 
ladrillos a la vez (o a veces muchos 
más si se mete en un hueco). 
Mientras que si los tiros son 
horizontales desaparecerá 
simplemente el primero de los 
ladrillos. Otra recomendación es que 
te cuides de trabajar una zona del 
muro. Es muy importante para que 
así veas cómo se puede tumbar casi 
enteramente un muro dejando a tu 
traviesa bola botar entre el frontis y 
la parte superior. 
El juego incorpora también una 
variante peculiar al existir en cada 
pantalla un objeto que cae y te abre 
una trampilla en la pared lateral por 
la que accedes a la pantalla siguiente 
sin tener que acabar la anterior. 
Como conclusión, solamente nos 
cabe expresar que este juego es 
superadictivo. 
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SHORT CIRCUIT 

• ERBE ■ JUEGO DE SALAS 

Tras una exhibición de las 
capacidades de los robots aplicados a 
las artes militares, un robot de la 
serie SAINT queda parcialmente 
afectado por un rayo de tal modo 
que el robot cobra misteriosamente 
vida propia y huye para salvar sus 
chips de los científicos. 
NUMERO CINCO —ya que así es 
como se identifica al robot— está 
acosado por tres peligros. Uno, los 
militares que lo quieren eliminar por 
el considerablemente valioso y 
sofisticado armamento que lleva a 
cuestas, el segundo, los científicos, 
que como hemos dicho lo quieren 
limpiar para descubrir el milagro que 
se ha operado en la máquina, y, por 
último, los demás robots que tienen 
orden de apresarle o aniquilarle y 
disponen de un auténtico arsenal 
para llevar a cabo tan fatídica 
misión. 

Nuestro amigo NUMERO CINCO 

precisa de tres elementos para poder 
salir del edificio: el hardware 
correspondiente al RAYO LASER, el 
hardware correspondiente al salto y 
el manual técnico que le permite 
crear un nuevo e idéntico SAINT. 
El edificio en el que se hallan está 
plagado de sistemas de segundad 
:ada cual más sofisticado pero 
mestro simpático robot es muy listo 
< tiene acceso a las computadoras de 
SOYA 

Dentro de la computadora se hallan 
res tipos de programas: uno de 
búsqueda, otro de salto y otro de 



láser. Estos dos últimos deberán 
estar activados para poder funcionar 
y por otra parte la memoria de 
NUMERO CINCO solamente permite 
cargar dos programas a la vez, así 
que, como comprenderéis, debéis de 
cargar en primer lugar el programa 
de SEARCH (búsqueda). En lo que 
al hardware se refiere, NUMERO 
CINCO únicamente puede llevar tres 
objetos a la vez, así que ojo con lo 
que lleváis. Los objetos son fáciles 
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de hallar y el único problema posible 
está en los que se hallan dentro de 
los ficheros. Dicho sea de paso, casi 
siempre los objetos más importantes 
se encuentran en el interior de 
ficheros. 

El juego está plagado de PASSCARD 
(tarjetas de pases), PASSWORD 

(palabras claves) 
que te permitirán 
acceder a la 
mayoría de las 
salas, para otras 
necesitarás un 
manojo de llaves 
(BUNCH OF 
KEYS). EL 
PASSWORD 
te servirá para 
poder entrar en 
a zona más 
rotegida del 
edificio 
y para apagar 
V encender el 



ordenador pero, ¡ojo!, cada ocho 
minutos deberás volver a encenderlo, 
ya que se produce un cambio de 
guardia y se darán cuenta de que el 
ordenador central ha sido 
manipulado. 

El juego tiene una excelente 
combinación de colores en las 
pantallas que corresponden a la parte 
del exterior de la factoría. Es muy 
agradable y resulta fácil elaborar un 
mapa. 

En resumen, CORTOCIRCUITO 

tiene todo lo que se precisa para 
constituirse en un auténtico 
ex i to . 
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THE GOONIES 

• ERBE ■ ARCADE 

MAMA FRATELI no sabe el tesoro 
que tiene debajo de sus pies, 
tampoeo andan del todo seguros 
nuestros amigos los GOONIES, que 
parece que andan un poco 
despistados y que para salvarse de la 
seriara gorda deben colarse en la 
chimenea. Éste ha sido un juego 
precursor en lo que se refiere a 
posibilidad de jugar a dos 
ayudándose uno con otro y siendo 
cada jugador autónomo. 
El juego se basa constantemente con 
la ayuda de los dos jugadores y 
obliga a menudo a relizar un 
esfuerzo intelectual: os contamos 
cómo alcanzar y superar las pantallas 
7 y 8, que a nuestro entender son las 
más difíciles. 

Los personajes están muy bien 
caracterizados. Queda patente la 
avaricia de la MAMA, avaricia que a 
menudo servirá para mantenerla 
entretenida mientras uno de los 
nuestros hace de las suyas. No hace 
falta deciros que el juego tiene ocho 
fases por las que pasarás entre 
peligros de lo más diverso: desde el 
riesgo de ahogarse, ser aniquilado 
por un pulpo — esperamos que así no 
sea, ya que os damos la solución de 
esta fase — ■ a ser machacado a 
porrazos por la MAMA o por 
cualquiera de sus hijos. 
El feliz desenlace es la pasta que se 
llevan al bolsillo nuestros amigos 
ante la mirada atónita de los 
adversarios. 

Un juego imprescindible en cualquier 
ludoteca que se precie y que hará las 
delicias de los que no lo conocían 
antes. 



TRUCOS 

PANTALLA NUMERO 7 

1. Los GOONIES van a la escalera. 

2. Uno se va arriba a la izquierda y, 
gracias al trampolín, salta y se agarra 
a la cadena arriba a la izquierda, 
mientras que abajo una caja cae al 
suelo. 

3. Uno de los GOONIES se queda 
en la escalera, el otro se va abajo. 
Debe empujar la caja hasta la altura 
de la cadena y muy deprisa saltar 
sobre la misma para agarrarse a la 
cadena. 

4. El que se ha quedado en la 
escalera sube, salta sobre el 
trampolín lo más a la izquierda 
posible, para quedar cerca del pulpo. 
A estas alturas el nivel del agua ya 
ha bajado; puede saltar encima del 
pulpo sin morir. El otro GOONIE 
puede bajar por la cadena y va hasta 
su compadre... Pasan entonces a la 
fase 8. 



PANTALLA NUMERO 8 

1. El más pequeño va a la palanca 
que está junto a la MAMA. 

2. Esta palanca abre el pasadizo. El 
grande va a accionar la cadena en el 
medio a la izquierda. 
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3. El pequeño sube y pasa por el 
pasadizo para accionar la cadena del 
medio-izquierda. 

4. El grande baja y acciona la 
cadena de abajo-izquierda. 

5. El pequeño baja. 

6. El grande sube hasta el cofre 
arriba a la derecha y lo empuja al 
mar. El dinero se hunde y la MAMA 
se ahoga. 

7. El peque acciona la cadena de 
abajo-izquierda. 

8. El grande va hasta la palanca que 
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había donde estaba la MAMA v NO 
LA TOCA. 

9. El peque va al montacargas, del 
medio-arriba. 

10. El grande acciona la palanca. 

11. El peque salta a la derecha y va 
hasta el fondo. 

12. El grande le alcanza. 

13. Te has convertido en un GOONIE 

The Goonies — juego inspirado en 
la exitosa película del mismo 
título producida por el famoso 
«mago del cine» Steven Spielberg — 
es el típico programa impredecible 
e imprescindible que le hace a 
uno sentirse protagonista de 
hazañas más bien propias del 
mismísimo Indiana Jones. 
En efecto, al introducirte en su 
trama, recreas las situaciones de 



peligro, te conviertes en héroe 
«caballeresco-andante» sin 
caballo, luchas contra sórdidas e 
ignotas legiones de fuerzas del 
mal. juegas al gato y al ratón 
con tus enemigos... 
Estas pueden ser algunas de las 
razones y emociones que 
justifiquen ta visualización de 
este interesante arcade de 
aventuras de películas. Recordemos 
la trama de esta aventura. 
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FIRETRACK 

• PROINSA ■ ELECTRIC DREAMS 

Los juegos de marcianos siempre 
tienen unos escenarios raros, 
planetas lejanos, civilizaciones 
perdidas y amenazadas. A menudo 
muy buen instrumental para poder 
defenderse y repeler el ataque de los 
malos. No vamos a contaros esta vez 
la película que hay alrededor de esta 
nueva STARWAR, Como ya os 
suponéis debéis de pegar tiros a todo 
lo que se mueva delante vuestro, la 
cosa va de tiros y deberéis dar 
muchos más de los que estáis 
acostumbrados si queréis salir ilesos 
de este recién salido juego de 
marcianos... Los gráficos son buenos 
y quizás lo que más resalte sean las 
raras y alienígenas combinaciones de 
colores del planeta en el que se están 
viviendo tantos conflictos... Los 
ataques a los que te verás expuesto 
cobran aires y pinta de lo más raros 
y extraños: a veces serán sólo naves 
sueltas o bien podrán ser auténticas 
colmenas de naves con forma de 
caracol que se te echarán encima y 
que al recibir tu disparo se 
convertirán en mil y una bolas 
mortíferas. 

A los que vayan a intentar la 
aventura de acabar este juego, la 



única recomendación que se les 
puede hacer es que se queden en el 
medio de la pantalla. En efecto, el 
juego permite una mobilidad hacia la 
derecha, izquierda, adelante, esto te 
será vital cuando te vengan varios 
enemigos a la vez, ya que mientras 
disparas podrás ir echándote hacia 
atrás ganando así tiempo para 
destruirlos a todos. 
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GOLPE EN LA 
PEQUEÑA CHINA 

• PROINSA ■ JUEGO DE SALAS 

La historia no es muy sencilla: un 
mandarín llamado LO PAN está 
intentando calmar a un demonio, y 
para ello precisa de un sacrificio: 
debe casarse con una joven de ojos 
verdes y posteriormente sacrificarla. 
Las novias de nuestros dos héroes 
(en la película Jack Burton y Miao 
Yin) son raptadas para tal fin y 
llevadas al imperio del mandarín LO 
PAN, que se halla debajo de! barrio 
chino de SAN FRANCISCO. 
Aquí es donde empieza el juego: 
JACK, WANG y otro acompañante 
llamado EGG penetran en el 
universo de LO PAN para rescatar' a 
sus amigas. Durante el juego vas a 
controlar los tres personajes. Cada 
uno tendrá una serie de habilidades 
que tendrás que saber utilizar en 
cada momento. Jack luchará al 
principio sólo con los puños, aunque 
luego si llegas suficientemente hondo 
en el mimo de LO PAN encontrarás 
una pistola con munición casi 
ilimitada esparcida a su alrededor. 
WANG es un experto en ARTES 
MARCIALES y hará las delicias de 
todos los amantes de juegos de 
porrazos: domina todos los golpes de 
las artes y de vez en cuando verás 
que maneja las espadas que se 
encuentra en el camino con la 
maestría de los míticos NINJAS. 
EGG, el último de los aventureros, 
es un mago poderoso que hace 
brotar de sus dedos rayos mortíferos, 
cuyo único defecto es que duran muy 





poco. Verás que conforme vayas 
penetrando en la madriguera 
aparecen botellas de poción mágica 
que refuerzan su poder o alargan la 
duración de sus rayos. 
En la parte inferior de la pantalla 
verás un indicador de estado de fos 
tres personajes. Al ser un programa 
con connotaciones de tipo 
ORIENTAL el indicador de fuerza 
viene dado por el signo del YING- 
YANG 

El juego se desarrollará en 4 niveles 
cada cual más difícil que el anterior: 
el primero se ubica en las calles de 
CHINATOWN; en este nivel muy 
pocas veces encontrarás pistoleros, 
casi siempre serán luchadores de 
artes marciales a los que deberás 
plantar cara. 

Cuando te cruces con un pistolero, 
echa a correr ya 
que no te queda 
más opción. 
En el segundo 
nivel, ya en las 
alcantarillas, 
deberás luchar 
contra 

monstruos. Te 
recomendamos 
que saltes por 
encima de ellos 
ya que, como 
verás si lo 



intentas, son imposibles 
de ganar en combate. 
Ya en el cuartel de LO PAN deberás 
derrotar a extraños seres que llevan 
sombreros de ala ancha antes de 
poder pretender alcanzar al dueño 
del lugar. Si consigues esto quizás 
puedas penetrar en la habitación 
donde se prepara la boda. En ella 
verás cómo LO PAN se halla en 
suspensión en una nube. Derrotar 
sus guardaespaldas será la última 
prueba antes de la lucha cuerpo a 
cuerpo con el. La lucha con él es la 
prueba más difícil, ya que LO PAN 
tiene poderes sobrenaturales que le 
permiten regenerarse como el AVE 
FENIX. 
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EXPLORER 

• PROINSA ■ ELECTRIC OREARAS 

Hay hombres que tienen muy poca 
fortuna: baste como ejemplo 
nombrar el caso del héroe de este 
juego. Haceos a la idea de que se ha 
quedado más solo que la una en un 
hostil páramo del planeta 
ESMERALDA. Todo por no 
comprar una aeronave nueva... claro 
que, sin duda, es ya mucha suerte el 
haber quedado con vida y todavía le 
queda una oportunidad de salvarse: 
... buscar y encontrar los nueve 
trozos en que la nave ha quedado 
segmentada tras el accidente. Donde 
realmente empieza la mala pata de 
nuestro protagonista es aquí, porque 
el planeta tiene 40 billones de 
lugares en los que pueden hallarse 
los restos de la nave. 
El juego gana en complejidad a 
partir del momento en que comienza 
la exploración. Un potente y 
sofisticado equipo te ayudará a 
encontrar los restos de tu aeronave: 
un jet portátil te ayudará en tus 
desplazamientos; un sonar de objetos 
te ayudará a localizar los segmentos 
utilizando la onda de refracción de 
los mismos y averiguar la distancia 
aproximativa a la que se hallan. El 
radio vector, la brújula, la pistola 
láser y las botas de monte te serán 
también sin duda imprescindibles 
para andar por la jungla de este 



lejano planeta 
llamado 

ESMERALDA, 
que constituye 
apenas un punto 
perdido en medio 
de la inmensidad 
del universo 
sideral. 

Verdad es que 
este planeta 
desafía cualquier 
inteligencia 
conocida. A 
menudo deberás 
utilizar radiofaros 
para guiarte por el llamado método 
de triangulación. Procura andar con 
cautela por el planeta, ya que 
descubrirás a menudo oscuras 
manchas en la selva que tras hacerte 
mil y una preguntas referentes a tus 
gustos, sueños, etc., te llevarán a 
un extraño lugar: ¡OJO!!, porque 
como buen explorador — descubridor 
de tierras lejanas — deberás darle tú 
un nombre al lugar. 
Procura andar 
con sumo cuidado 
al realizar este 
«bautizo» ya que 
puede que te 
armes un auténtico 
follón en cuanto te 
teletrasporten 
cuatro o cinco 
veces. 



Quizás lo más sorprendente del 
juego sea el escrupuloso cuidado con 
que se han tratado los gráficos, se ha 
logrado crear un curioso efecto de 
profundidad por medio de los 
FILLS (rellenos). En los lugares por 
los que irás vagando podrás utilizar 
un zoom para buscar mejor las 
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nueve piezas... 

Se trata, como puedes ver, de un 
programa superlativo. Así que, como 
un buen Robinsón Crusoe sideral, 
anímate y empieza cuanto antes la 
búsqueda, ya que este juego sin duda 
se lo merece plenamente. 
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Deseo contactar con usuarios del C-64 
para intercambio de programas últimas 
novedades. Máxima fiabilidad en las 
reproducciones. Rafael Navarrete Ruiz. 
C/ Bordadoras, 3 bajo-C. 41008 Sevilla. 

Vendo unidad 1541, con un año de uso 
aprox. en perfecto estado por cambio a 
una unidad superior, por 40.000 pts. 
Regalo los siguientes programas: Su- 
per base 64, Easy script y una hoja de 
cálculo, así como otras utilidades y al- 
gunos juegos. Interesados remitir 
oferta a: Feo. Javier Salcedo Sierra. C/ 
Alto de San Isidro s/n. 49002 Zamora 
TJ: (988)527762. 

Vendo ordenador C-64 más unidad de 
cassette C2N más un montón de revis- 
tas y juegos, todo al precio de 49.000 
pts. Vendo también ensamblador lla- 
mado HESMON a 3.000 pts. y cartucho 
Simon's Basic a 6.000 pts. Miguel Ta- 
llón Biarge. C/ Ribera del Beiro bl. 7 
3.°B. 18013 Granada. 



Intercambio juegos en cinta para C-64, 
todos ellos en turbo. Me interesa el Si- 
mon's Basic. Mandar lista: Juan C. Ló- 
pez. Pgno/La Paz, 2, 6.°, B. Gurutzetak- 
Baracaldo. Bizkaia 48900. 



Intercambio programas en disco para 
el C-64, poseo sobre 1.000 (entre las 
cuates últimas novedades), se asegura 
seriedad. Mandar lista. Antonio G. Ro- 
dríguez. A. Postal: 3032. 36200 Vigo. 

Cambio todo tipo de programas (jue- 
gos y utilidades} en cinta para C-64. Si 
alguien sabe jugar o tiene instrucciones 
de DRUIDS; desearía cambiárselas o 
comprárselas. Óscar García González. 
C/ Olmedo, 40 1.°F. Valladolid 4701 3. 

Intercambio programas para el C-64. 
Todos ellos en turbo. Poseo más de 
500. Alvaro Ginel Diez. C/ Arca Real, 1, 
3.°, D. 47013 Valladolid. 



Vendo C-128-D por cambio a PC. Ade- 
más incluyo: instrucciones de gran 
cantidad de juegos. Abundantes revis- 
tas sobre Commodore. Curso de pro- 
gramación (BASIC BASICO). Cuatro to- 
mos de Informática Aplicada, 8 prime- 
ros tomos de taller de Informática. Ma- 
nual del usuario. Manual de la unidad 
de discos 1571. Cuatro cassettes con 
programas. Dos joystíck Quick Shot II. 
Y otras cosas más. Manuel Jiménez Ji- 
ménez. C/ Alcalde Ortega Muñoz, 6, 2.° 
ízq. Cp: 29014. Málaga. TI: 262220. 

Vendo CBM-64, Datacassette, 200 pro- 
gramas en cinta, 25 revistas, Interface 
para hacer copias de seguridad entre 
datacassettes. Unidad de discos 1.571 
con garantía, 50 discos con 300 progra- 
mas, el libro CBM 1571-1570. El gran li- 
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azoco 

bro Floppy de data-Becker. Y otras co- 
sas más. Precio a convenir. Llamar a 
Paco de Barcelona. TI: 2138549. 

Vendo equipo completo compuesto 
por C-64, datacassette C2N, libros y 
manuales en español , guía de referen- 
cia, interface copiador, joystíck Quícks- 
hot II, programas Logo, Pascal, Simon's 
Basic II y juegos originales. También in- 
cluyo disco de demostración y utilida- 
des. Negociable. Jordi Aljama Deulo- 
feu. C/ Del Comte Borrell, 4, Baixos 1. a . 
Sant Celoni. Barcelona 08470. 

Cambio programas de todo tipo en 
cinta o disco para el C-64. Poseo bue- 
nos y novedosos títulos. Escribir a : Vi- 
ceng Vila i Tomasa. C/ Socttat, 28, 4.", 
C. Terrassa. Barcelona. 

Vendo juegos para Commodore, últi- 
mas novedades. También compro los 
que me puedan interesar. Compro uni- 
dad de disco 1541 en buen estado a 
cambio de una larga lista de programas 
(poseo más de 1.000) abonando, si es 
necesario, 10.000 pts, TI: 4229736 de 
Barcelona. Isidro Morón. 



Cambio programas para el C-64 en 
cinta como: Simon's Basic, Gauntlet, 
Uridium, Commando, Infiltrator... por 
programas como: Acrojet, Pascal, Ace 
of Aces, Silent Service... etc. Enviar lista 
a: D. Almagro, Plaza Guillermo, 4, 4.°, 
1. a . Andorra la Vella. P. de Andorra. 

Necesito instrucciones juegos C-64. En- 
vía lista, precio y teléfono. Contesto to- 
das las cartas y ofertas. Pref. Barcelona. 
También compro cartuchos utilidades, 
tipo freezer e interface MIDI.G.D. Apdo. 
93045 Barcelona 08080. TI: (93) 
2179080. 



Compro Impresora para C-64 directa y 
por fricción, por precio módico. Tam- 
bién intercambio programas, enviar 
lista y ofertas a Miguel Ángel Gallardo 
García. El Drago bl. 11,3.°, B. 29017 Má- 
laga. 

Cambio juegos para C-64. Interesados 
llamar o escribir: Santiago Sebastián. 
C/ Mayor, 52 1.°, D. Torres de la Ala- 
meda. Madrid. TI: (91) 8858164. 

Vendo C-128 cassette C2N, Joystíck 
spectravideo, 13 cintas de juegos, 40 
revistas de Informática, 3 libros edíto- 
■ riaí DATA-BECKER para C-64/128, pro- 
gramas de utilidades, Disco sistema 
Op. CPM PLUS, Simon's Basic. Javier 
Antón Morán. C/ El Milagro, 26. Torre- 
iavega. Cantabria. TI: (942) 881254. 

Cambio programas para el C-64 en 
cinta. Tengo novedades en juegos y to- 
dos son de calidad. También tengo uti- 



lidades. Jorge Arias Carrera. C/ Río Val- 
cárcel, 1, 5.°, B. 24400 Ponferrada. 
León. TI: (987) 401258. 

Vendo/cambio programas para C-64. 
Poseo alrededor de 700. Tengo unidad 
de disco y cassette. Feo. Javier Cama- 
cho García. Bl. 12D, 8.°, 6.°. Algeciras. 
Cádiz. TI: (956) 664414. 

Cambio programas por HARDWARE, 
interesándome especialmente C-64/ 
1541, aunque aceptaría todo tipo de 
aparatos de cualquier marca. Desde or- 
denadores a transformadores pasando 
por consolas. Cantidad de títulos. A 
convenir. No importa el estado. Tam- 
bién vendo los juegos. Marcos Miguel 
Huerga Muñoz. C/ Candelaria Ruiz de! 
árbol, 55 4.°, p 3. a A. 49003 Zamora. TI: 
(988) 528864, 

Vendemos juegos para el C-64, a buen 
precio, aprox. 500 pts. c/u. Tales como: 
Rambo, Baloncesto, Terra Cresta, 
Speed King y muchos más. Poseemos 
más de 50 juegos diferentes. Llamar a 
estos teléfonos: (93) 4218145 Javi o 
(93) 3338683 José. 

Intercambio programas de juegos y uti- 
lidades para C-64 y C-128. Solamente 
en disco. Carlos Iglesias Iglesias. C/ 
Suárez Naranjo, 78, 6.°, D. 35004 Las 
Palmas de G. C. 

Cambio programas (juegos, utilidades) 
en cinta para C-64. Por favor, enviad 
lista. Feo. de los Ríos Rodríguez. C/ Cór- 
doba, 1, 2 o , D. 47013. Valladolid. 

Intercambio programas en disco para 
C-64, especialmente utilidades, gestión 
y aplicaciones. Poseo una programo- 
teca bastante interesante. Francisco. 
Apdo. 25063. Barcelona. 

Vendo Vic 20 por 15.000 pts. con cas- 
sette, manual y juegos; o bien cam- 
biarlo por un ZX Spectrum con cas- 
sette. Alejandro Domeñé Pozuelo. Tí: 
(91) 7159990. 

Intercambio programas para C-64, 
tanto juegos como utilidades. Daniel 
Vizmanos Pérez. C/ Poeta Rosalía de 
Castro, 25 3B. Zaragoza 50615. TI: 
514033. 



Vendo C-64. Precio convenir, también 
cambio programas del mismo contal- 
guien de Madrid. Manuel Rico Re- 
condo. TI: (91) 4414215. 

Deseo formar un grupo en Cartagena y 
sus alrededores para cambiar juegos, 
información, etc. José Manuel Palao. 
C,/ Hidalgo de Cisneros, 5, 4.°, B. 30205 
Cartagena. Murcia. TI: 519596. 



ÍINCO MINUTOS ANTES DE COMPRAR UN JUEGO A 875pi* 

• Echale un vistazo a estos juegos de 875, 
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*o software división Paseo ote la Castellana, 141 28046 Madrid 
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SIGUENOS EL JUEGO. 



